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Vorwort 


Das vorliegende Buch gibt eine vollständige Einführung in die 
Programmierung mit Modula-2. Es ist in erster Linie zum Selbst¬ 
studium gedacht, kann aber auch als Begleitliteratur zu Kursen 
verwendet werden. Der Leser muß keine speziellen Vorkenntnisse 
besitzen. Auf eine Beschreibung dessen, was ein Computer ist und 
wo seine Einsatzbereiche liegen, wurde allerdings verzichtet, da 
solche Informationen inzwischen zum Allgemeinwissen zählen. 

Der behandelte Stoff geht beträchtlich über elementare Sprach- 
und Programmierkonzepte hinaus. So wird rekursiven Algorith¬ 
men und dynamischen Strukturen dieselbe Aufmerksamkeit 
gewidmet wie einfachen Anweisungen oder selbstdefinierten 
Typen. Verzichtet wurde in der Hauptsache nur auf Aspekte der 
Systemprogrammierung, deren Techniken oft im Widerspruch zu 
der didaktischen Forderung nach einem sauberen Stil stehen. 

Die zahlreichen Beispiele und Aufgaben dienen einem doppelten 
Zweck: Einerseits sollen sie die beim Selbststudium fehlende Leh- 
rer-Schüler-Kommunikation ersetzen, soweit das im Rahmen eines 
Buches überhaupt möglich ist. Andererseits sollen sie eine Brücke 
schlagen von der systematischen Gliederung des Stoffes zu den 
Fortschritten in der Programmierkunst. 

Einen besonderen Schwerpunkt bilden die Programme zur Text¬ 
analyse und -bearbeitung. Der Grund hierfür ist, daß an diesen 
Beispielen so grundlegende Programmiertechniken wie die Ein- 
und Ausgabe von Daten oder die Konstruktion endlicher Automa¬ 
ten klargemacht werden können. Daß bei der Programmierarbeit 
das Datenmaterial in Form von Quelltexten ganz automatisch 
anfällt, ist ein günstiger Nebeneffekt. 

Das Buch basiert in der Hauptsache auf einer Reihe von Program¬ 
mierkursen, die ich im Verlauf der letzten Jahre in München 
gehalten habe. Den Teilnehmern möchte ich an dieser Stelle ganz 
ausdrücklich danken. Sie haben mit beharrlichen Fragen und Anre¬ 
gungen eine Menge zur Aufbereitung des Stoffes beigetragen. Viele 



Selbstverständlichkeiten erweisen sich bei näherem Hinsehen als 
komplizierte Gebilde. Und vieles, von dem man glaubt, es sei nur 
Experten zugänglich, beherrschen Anfänger bereits, ohne auch nur 
ein Wort darüber zu verlieren. 

Die Programmbeispiele stellen keine besonderen Ansprüche an 
den verwendeten Modula-2-Compiler. Einzige Voraussetzung ist, 
daß die Module «InOut», «ReallnOut», «Terminal» und «Storage» 
dem Standard nach Niklaus Wirth entsprechend implementiert 
sind. 

Eine Diskette (MS-DOS, 360 KB, DS/DD; andere Formate auf 
Anfrage) mit den Programmen dieses Buches ist zum Preis von 35 
DM zuzügl. 3 DM Versandkosten erhältlich bei: Vogel-Buchverlag, 
Günter Rolle, Schillerstraße 23a, 8000 München 2, Telefon: 
(089) 5 14 9333. 


München 


Ulrich Kern 
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1 Programmieren - was ist das? 


Ein Computer ohne Programm ist ein nutzloser Gegenstand. Erst 
das Programm macht ihn zur Maschine. Durch die Fähigkeit, 
verschiedene Programme ausführen zu können, wird er zur Univer¬ 
salmaschine im Bereich der Datenverarbeitung. 

Das Erstellen eines Computerprogramms ist daher mit der Kon¬ 
struktion einer speziellen Maschine vergleichbar, bei der anstelle 
der Bearbeitung irgendwelcher Werkstoffe die Manipulation von 
Informationen tritt. Es ist also durchaus angebracht, beim Program¬ 
mierer von einem Software-Ingenieur zu sprechen. Programmieren 
heißt in diesem Sinne: eine Datenverarbeitungsmaschine bauen. 

Die Vorgehensweise dabei läßt sich wie folgt skizzieren: 
Zunächst wird festgelegt, was die Maschine leisten soll. Dann 
werden funktionale Einheiten entworfen, deren Zusammenspiel 
die Gesamtleistung bewirkt. In manchen Fällen kann auf bereits 
Vorhandenes zurückgegriffen werden. Es ist sicher sinnvoll, 
bewährte Komponenten zu verwenden und die neu zu schaffenden 
entsprechend anzupassen. Je nach Komplexität der so festgelegten 
Funktionseinheiten werden diese isoliert betrachtet und einer ähn¬ 
lichen Aufteilung unterworfen wie die gesamte Maschine. Dieses 
Verfahren wird so lange wiederholt, bis die einzelnen Komponen¬ 
ten klar, einfach und sicher realisiert werden können. Erst jetzt 
wird das Stadium der Planung und Konstruktion verlassen, um die 
konkrete Ausführung in Angriff zu nehmen. Beim anschließenden 
Zusammenbau der Komponenten muß das reibungslose Zusam¬ 
menspiel laufend kontrolliert werden. Häufig machen sich dabei 
Konstruktionsfehler bemerkbar, deren Behebung mitunter zu einer 
Revidierung kompletter Konstruktionswege führt. 

Die größte Fehlerquelle steckt jedoch in der konkreten Ausfüh¬ 
rung. So wie unpassende Gewinde, falsch bemessene Abstände, 
schlechte Materialauswahl etc. einen nach außen hin vielleicht 
funktionstüchtigen Apparat zum Gefahrenherd werden lassen, 
können in der Datenverarbeitung ein paar unbedacht eingesetzte 
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Programmschritte oder schlecht gewählte Größen fatale Auswir¬ 
kungen haben. Aus diesem Grund ist es von höchster Wichtigkeit, 
bei der konkreten Ausführung über leistungsfähige Werkzeuge zu 
verfügen, mit deren Hilfe die möglichen Fehlerquellen auf ein 
Minimum reduziert werden können. 


1.1 Die Programmiersprache Modula-2 

Das wichtigste Werkzeug eines Programmierers ist die Program¬ 
miersprache. Mit ihr werden die gewünschten Arbeitsabläufe auf 
den Computer übertragen. Es dürfte klar sein, daß an die Qualität 
einer Programmiersprache höchste Anforderungen gestellt werden. 
Eine Programmiersprache ist um so besser, je mehr sie die Auftei¬ 
lung in funktionale Einheiten (Modularisierung), eine klare und 
übersichtliche Darstellung der Abläufe (Strukturierung) und eine 
unmittelbare und logische Bearbeitung realer Größen unabhängig 
von deren computerinterner Darstellung (Abstraktion) ermöglicht. 
Das sind die Anforderungen, die von der Seite der Anwenderpro¬ 
grammierung an eine Programmiersprache gestellt werden. Soll die 
Sprache auch für die Systemprogrammierung geeignet sein, so 
müssen zusätzlich sogenannte «niedere Sprachelemente» vorhan¬ 
den sein, über die auf die einzelnen physikalischen Komponenten 
des Computers zugegriffen werden kann. 

Es wäre jedoch falsch anzunehmen, daß eine Programmierspra¬ 
che erst bei der konkreten Ausführung einer Programmkonstruk¬ 
tion ins Spiel kommt. Obwohl man in Informatikerkreisen lange 
Zeit dieser Ansicht war, hat sich gezeigt, daß die jeweils einge¬ 
setzte Programmiersprache bereits direkt in die Planungsarbeit 
einwirkt. Die günstigste Wechselwirkung besteht dann, wenn die 
verwendete Programmiersprache Mittel zur Verfügung stellt, mit 
der sich Konstruktionspläne direkt ausdrücken lassen. 

Modula-2 ist eine moderne Programmiersprache, die alle vorge¬ 
nannten Forderungen in geradezu vorbildlicher Weise erfüllt. Sie 
wurde an der ETH Zürich vom Schweizer Informatiker Niklaus 
Wirth entwickelt und 1983 mit dem Buch «Programming in 
Modula-2» der Öffentlichkeit vorgestellt. Bei den großen Univer¬ 
salsprachen ist sie der mächtige Konkurrent von Ada, einer vom 
nordamerikanischen Verteidigungsministerium initiierten Pro¬ 
grammiersprache. Die besonderen Vorzüge von Modula-2 beruhen 
auf der wohlüberlegten Bemessung des Sprachumfangs. So sind alle 
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Elemente vorhanden, die zum Realisieren auch größter Programm¬ 
projekte benötigt werden. Andererseits ist die Anzahl der Sprach- 
konstrukte so gering, daß Modula-2 mit Recht zu den leicht erlern¬ 
baren Programmiersprachen zählt. Auch dem Anfänger, der noch 
keine Programmiersprache beherrscht, kann Modula-2 uneinge¬ 
schränkt empfohlen werden. Er erwirbt damit ein Werkzeug, das 
ihn mehr als alle anderen darin unterstützt, gute Programme zu 
schreiben. 


1.2 Gute Programme 

Was ist ein gutes Programm? Welche Kriterien müssen erfüllt sein, 
daß man von einer gelungenen Maschine sprechen kann? Die 
Aufzählung kann durchaus als verbindlich betrachtet werden: 

□ Erbringen der gewünschten Leistungen, 

□ Fehlerfreiheit, 

□ Bedienungsfreundlichkeit, 

□ Effizienz, 

□ Ästhetik. 

Das sind die Kriterien, nach denen ein Anwender ein Computerpro¬ 
gramm beurteilt. Keiner der Punkte ist leicht zu erfüllen. Man 
kann getrost davon ausgehen, daß in jedem etwas komplexeren 
Programm mehrere Fehler vorhanden sind. Das bedeutet, daß es 
unter ganz bestimmten Umständen falsche Resultate liefert. Die 
große Gefahr liegt besonders darin, daß unkorrekte Ergebnisse 
oftmals nicht erkannt werden können (vor allem, wenn das Pro¬ 
gramm normalerweise zufriedenstellend arbeitet). Es steht fest, daß 
die Fehlersuche der aufwendigste Teil der Programmierarbeit ist. 

Überraschend in diesem Zusammenhang ist vielleicht die Forde¬ 
rung nach Ästhetik. Sie erklärt sich aus der Tatsache, daß die 
Steuerung moderner Anwenderprogramme grundsätzlich dialog¬ 
orientiert am Bildschirmterminal stattfindet. Es würde einem kul¬ 
turellen Rückschritt gleichkommen, würde man der Gestaltung 
dieser Schnittstelle zwischen Mensch und Computer ausschließ¬ 
lich funktionalen Wert beimessen. Das Design einer Maschine ist 
ein wesentlicher Faktor, der freilich erst dann zum Tragen kommt, 
wenn die Maschine ordnungsgemäß funktioniert. 

Auf der Programmiererseite besteht noch eine weitere Forderung 
an ein gutes Programm: Sein Konstruktionsplan muß klar und 
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nachvollziehbar sein. Nur dann können Fehler lokalisiert, neue 
Leistungen eingebaut oder bestehende ergänzt und verändert wer¬ 
den. Komplizierte Gedankengänge müssen ausreichend dokumen¬ 
tiert sein, auf undurchsichtige Tricks wird grundsätzlich verzich¬ 
tet. Auch hier spielt die verwendete Programmiersprache eine 
große Rolle. Wenn sich der Entwurf im Programmtext direkt wider¬ 
spiegelt, ist in bezug auf Nachvollziehbarkeit schon sehr viel 
gewonnen. 


1.3 Editor, Compiler und Linker 

Eine Programmiersprache ist, im Vergleich zu den natürlichen 
Sprachen, ein sehr primitives Kommunikationsmittel. Nur einige 
wenige Wörter und Symbole werden zur Darstellung von Arbeits¬ 
abläufen bereitgestellt. Zudem funktioniert die Verständigung mit 
einer Programmiersprache nur in einer Richtung. Der Programmie¬ 
rer formuliert Sätze in Form von eindeutigen Befehlen, die der 
Computer dann ausführt. Nun kann aber auch ein Computer mit 
den Sätzen einer Programmiersprache nicht unmittelbar etwas 
anfangen. Sie müssen erst in eine ihm direkt verständliche Form 
übersetzt werden. Diese Übersetzung übernimmt normalerweise 
ein spezielles Programm mit dem Namen «Compiler» (Kompilie¬ 
rer). Um einer Sprachverwirrung zuvorzukommen, unterscheidet 
man den Quelltext eines Programms, den der Programmierer for¬ 
muliert, vom sogenannten Maschinencode, den der Computer aus¬ 
führen bzw. abarbeiten kann. Während der Programmierer den 
Begriff «Programm» mehr mit dem Quelltext verbindet, tritt dem 
Anwender «das Programm» in Form des gerade bearbeiteten 
Maschinencodes gegenüber. 

Auch zum Formulieren des Quelltextes gibt es Hilfsmittel, soge¬ 
nannte Editoren oder Textverarbeitungssysteme. Damit kann der 
Programmtext direkt am Computerterminal erstellt werden. Zu 
der komfortablen Bearbeitung - Löschen, Einfügen, Verschieben 
oder Kopieren von Zeichen und Textblöcken - kommt noch der 
Vorteil, daß der Text so im Computer abgelegt wird, daß er ohne 
weitere Manipulation vom Compiler bearbeitet werden kann. In 
Modula-2 kann bereits der Compiler viele mögliche Fehler erken¬ 
nen und durch geeignete Meldungen darauf hinweisen. Wenn der 
Compiler den Quelltext ohne Fehlermeldung übersetzt hat, muß 
der entstandene Maschinencode meist noch mit dem von anderen 
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benötigten Programmteilen zusammengebunden werden. Das Pro¬ 
gramm, das diese Arbeit übernimmt, heißt Linker oder Binder. 

Als erstes sollte man sich mit diesen drei Programmen vertraut 
machen. Da die Arbeitsweise von System zu System unterschied¬ 
lich ist, bleibt nichts anderes als ein Studium der entsprechenden 
Handbücher oder, was unbedingt vorzuziehen ist, die Befragung 
eines Bekannten, der mit dem System bereits vertraut ist. Über 
folgende Fähigkeiten sollte man unbedingt verfügen, damit die 
Beispiele und Aufgaben des Kurses auch praktisch nachvollzogen 
werden können (verwenden Sie hierfür den Text des Moduls 
«Hallo»): 

□ Eingeben eines Programmtextes mit Hilfe eines Editors, 

□ Modifizieren eines bereits abgespeicherten Textes, 

□ Starten des Compilers zum Übersetzen des Programmtextes, 

□ Starten des Linkers, um ein ausführbares Programm zu erhalten, 

□ Starten des erzeugten Programms. 
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2 Das erste Programm 


Schauen wir uns erst einmal das allereinfachste Modula-2-Pro- 
gramm an: 


MODULE LeeresProgramm; 
END LeeresProgramm. 


Man erkennt zunächst die beiden fettgedruckten Wörter 
«MODULE» und «END». Das sind sog. Schlüsselwörter oder auch 
reservierte Wörter. Sie haben eine genau festgelegte Bedeutung und 
können niemals umdefiniert werden. Der Fettdruck dieser Wörter 
sorgt für einen besseren Überblick im Programm. Ein Programm, 
das einen beliebigen Modula-2-Text in der dargestellten Form aus¬ 
druckt, werden wir später selbst erarbeiten. 

An dem obigen Beispiel kann bereits die Grundstruktur eines 
Modula-2-Programms erklärt werden: Am Anfang steht immer das 
Schlüsselwort «MODULE». Darauf folgt offensichtlich der Name 
des Programms, in unserem Beispiel «LeeresProgramm». Im 
Anschluß an diesen Namen folgt ein Strichpunkt. Dann ko mm t 
wieder ein Schlüsselwort, nämlich «END», und im Anschluß daran 
nochmals der Programmname mit abschließendem Punkt. 

Zum Vereinfachen der Syntaxdarstellung des Programmaufbaus 
gibt es einige sehr einfache Abkürzungen und Regeln. Nach diesen 
wird die Grundstruktur so ausgedrückt: 

Programm-Modul::="MODULE" Modulname "Block Modul- 
Name 

Block: :="END". 

Nach dieser Schreibweise werden sprachliche Ausdrücke, die 
Bestandteil der Sprache sind (wie etwa das reservierte Wort 
«MODULE» oder der Strichpunkt) in Anführungszeichen geschrie¬ 
ben. Das heißt, daß sie an der angegebenen Stelle auch genauso 
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stehen müssen. Der Ausdruck «::=» bedeutet soviel wie «defini¬ 
tionsgemäß gleich» und ist am einfachsten zu lesen als «... ist wie 
folgt aufgebaut». Da sich eine Definition auch über mehrere Zeilen 
erstrecken kann, wird ihr Ende mit einem Punkt gekennzeichnet. 
Somit ist die erste Zeile der Programm-Modul-Erklärung so zu 
lesen: 

Ein Programm-Modul ist wie folgt aufgebaut: Auf das Schlüssel¬ 
wort «MODULE» folgt der Modulname und dann ein Strichpunkt. 
Anschließend kommt ein Block, dann nochmals der Modulname 
und abschließend ein Punkt. 

Kann man sich unter «Modulname» noch etwas vorstellen, so 
bedarf der Ausdruck «Block» einer weiteren Erklärung. Sie besagt, 
daß ein Block - im einfachsten Fall - aus dem reservierten Wort 
«END» besteht. 

Allerdings muß zur exakten Darlegung des Aufbaus einer Pro¬ 
grammiersprache jeder Ausdruck, der nicht in Anführungszeichen 
steht, weiter aufgelöst werden. 


2.1 Bezeichner 

Beim Modulnamen kann der eigenen Kreativität freier Lauf gelas¬ 
sen werden, solange folgende Regel beherzigt wird: Er muß stets 
mit einem Buchstaben beginnen, an den sich eine beliebige Anzahl 
von Buchstaben und Ziffern anschließt. 

In der EBNF-(erweiterter Backus-Naur-Formalismus)Notation, 
wie unsere Syntax-Darstellungsmethode heißt, schaut das Ganze 
dann so aus: 

Modulname: :=Bezeichner. 

Bezeichner::=Buchstabe{Buchstabe | Ziffer}. 

Buchstabe::="A" | "B" ... | "Z" | "a" | "b" ... | "z". 

Ziffer:="0" | "1" | "2" ... | "9". 

Hier sind neue Zeichen aufgetreten: | bedeutet soviel wie «oder» 
bzw. «wahlweise», a | b heißt also, daß an dieser Stelle entweder a 
oder b stehen darf. 

{ a } bedeutet, daß an dieser Stelle a beliebig oft stehen kann, also 
keinmal, einmal, zweimal usw. 

Aus der obigen Syntaxbeschreibung für den Modulnamen, die 
übrigens für alle Namen gilt, die man bei der Programmerstellung 



Bezeichnei 19 


vergeben kann, folgt, daß ein gültiger Name im einfachsten Fall 
auch nur aus einem Buchstaben bestehen darf. Aber nicht alles, 
was erlaubt ist, ist auch sinnvoll. Folgende Namen sind bsw. 
erlaubt: 


A 

XYZ 

A1B2C3 

GrrPfrrzzGrhmm 

WortStatistilc 


Zurückgewiesen werden hingegen: 


1XYZ 
Ab und Zu 
Ab_und_Zu 
END 


(beginnt mit einer Ziffer) 

(enthält Leerzeichen) 

(auch der Unterstrich ist nicht zugelassen!) 
(ist ein reserviertes Wort) 


Aus der Beschreibung geht aber nicht hervor, wie lang die Namen 
sein dürfen, wie viele Zeichen also maximal zugelassen sind. Da 
jeder Text - und um einen solchen handelt es sich ja auch bei 
einem Programmtext - in Zeilen gegliedert ist und ein Name nicht 
über mehrere Zeilen gehen darf (denn dazu müßte er die Zeichen 
für «Neue Zeile» beinhalten, was nach obiger Vorschrift ausge¬ 
schlossen ist), setzt hier der verwendete Texteditor die Grenzen. 
Andererseits gibt es auch einige Modula-2-Compiler, bei denen die 
Anzahl der Zeichen begrenzt ist, nach denen die Namen unter¬ 
schieden werden. Ist diese Anzahl kleiner als 20, so sollte dieser 
Compiler nicht verwendet werden, denn hier würde ein uner¬ 
wünschter Zwang zu Abkürzungen eintreten. 

Der großen Freiheit, die der Programmierer bei der Namensge¬ 
bung genießt, steht die Forderung entgegen, daß ein Programmtext 
leichtverständlich sein soll. Man sollte sich erinnern, daß die 
höheren Programmiersprachen allein aus dem Grund geschaffen 
wurden, um die Verständigung zwischen Mensch und Computer zu 
vereinfachen. Auf der Rechnerseite werden vom Compiler alle 
Wendungen prompt zurückgewiesen, die dieser nicht versteht. 
Zeigen Sie dieselbe Konsequenz, indem Sie ausschließlich und 
immer «sprechende» Namen verwenden, damit jeder Mensch 
(sofern er der verwendeten Programmiersprache mächtig ist) Ihre 
Programme versteht. 
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Also nicht MODULE A 
oder MODULE Bsp 12 

sondern MODULE ZahlenSortierung 
oder MODULE QuickSortDemo 

Noch ein Hinweis zu den Bezeichnern. Bei vielen Programmier¬ 
sprachen wird die Groß-/Kleinschreibung ignoriert, nicht jedoch 
bei Modula-2. Hier sind «Zahlensortierung» und «ZahlenSortie¬ 
rung» verschiedene Bezeichner. 


2.2 Kommentare 

Als weiteres Hilfsmittel zum Programmverständnis durch den 
Menschen steht die Möglichkeit zur Verfügung, an jeder beliebigen 
Stelle eines Programms Kommentare einzufügen. In Modula-2 
sieht ein Kommentar folgendermaßen aus: 

(* beliebiger Text *) 

Ein Kommentar wird also durch (* und *) gekennzeichnet. Er kann 
sich über beliebig viele Zeilen erstrecken. Zudem können Kom¬ 
mentare ineinander verschachtelt werden. Von dieser Möglichkeit 
wird man dann Gebrauch machen, wenn man ganze Programmteile 
ausblenden will. Unser kleines Programm könnte man bsw. so 
kommentieren: 

MODULE LeeresProgramm; (* Das ist unser erstes Modula-2- 

Programm. Es ist mit Sicherheit absolut fehlerfrei, weil es 
nichts tut und somit keinen Schaden anrichtet. *) 

END LeeresProgramm. (* Hier ist das Programm schon zu Ende *) 

Viele Programmierapostel geben den Ratschlag: Fügen Sie so viele 
Kommentare wie möglich in Ihre Programme ein! Ich bin hier 
grundsätzlich anderer Meinung. Mein Rat: Kommentieren Sie so 
wenig wie nötig! Viel wichtiger sind klug gewählte Namen und 
eine klare optische Gliederung. Sie werden in den vielen Beispielen 
sehen, wann der Einsatz von Kommentaren sinnvoll und notwen¬ 
dig ist. 

Noch ein Wort zur optischen Gliederung. Hier hat man in 
weitem Rahmen freie Hand. Das obige Programm könnte man 
auch so schreiben: 
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LeeresProgramm 

LeeresProgramm. 


MODULE 


END 


Oder so: 

MODÜLE LeeresProgramm; END LeeresProgramm. 

Jede Darstellung ist zugelassen, solange die Syntaxregeln nicht 
verletzt werden. Dem Compiler ist die optische Gestaltung eines 
Programms egal, sie dient ausschließlich der Lesbarkeit durch den 
Menschen. Es macht keinen Sinn, feste Regeln anzugeben, wann 
etwa eine Einrückung erfolgen muß oder eine neue Zeile begonnen 
werden sollte. Vielmehr sollen die Beispiele dieses Buches exem¬ 
plarisch die Möglichkeiten der textlichen Gestaltung aufzeigen. 


2.3 Ein- und Ausgabe am Terminal 

Jetzt wollen wir den Rechner zu einer ersten Tätigkeit veranlassen: 
Er soll uns begrüßen, indem er den Satz «Hallo, hier bin ich!» auf 
dem Bildschirm ausgibt. Modula-2 enthält jedoch überhaupt keine 
Ein- und Ausgabeanweisung. Hier scheint ein Widerspruch vorzu¬ 
liegen. Einerseits wurde Modula-2 als eine der modernsten Pro¬ 
grammiersprachen bezeichnet, andererseits arbeiten alle modernen 
Programme interaktiv mit dem Benutzer. Dieser scheinbare Wider¬ 
spruch ist jedoch schnell aufgeklärt. Die Ein- und Ausgabeanwei¬ 
sungen sind immer implementationsabhängig, d. h., daß sie für 
jeden Rechner ganz speziell gelöst werden müssen. Da die Sprache 
selbst jedoch unabhängig von speziellen Rechnertypen sein sollte, 
wurden alle diesbezüglichen Anweisungen aus dem Sprachkern 
ausgelagert. Sie sind in sog. Bibliotheksmoduln verfügbar, die zu 
jedem Modula-2-Compiler mitgeliefert werden. 

Das vorläufig für uns wichtigste Bibliotheksmodul hat den 
Namen «InOut» und stellt u. a. folgende Prozeduren zur Verfü¬ 
gung: «WriteLn» und «WriteString». Die Funktion von «WriteLn» 
ist einfach zu erklären. Auf dem Bildschirm wird eine neue Zeile 
(engl, line) geschrieben, d. h., der Cursor (Leuchtzeiger) rückt an 
den Anfang der nächsten Zeile. Ist keine freie Zeile mehr auf dem 
Bildschirm vorhanden, wird der gesamte Inhalt um eine Zeile nach 
oben geschoben (Scrolling) und somit eine freie Zeile erzeugt. 

Die Prozedur «WriteString» macht genau das, was ihr Name 
sagt: Sie schreibt einen String (Zeichenkette) auf den Bildschirm. 
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Der auszugebende String muß der Prozedur als Parameter (Argu¬ 
ment) mitgegeben werden. Eine genaue Behandlung der Zeichen¬ 
ketten folgt erst später. Wir wollen an dieser Stelle nur auf Zei- 
chenketten-Konstante eingehen, da das für den gewünschten 
Zweck ausreicht. Konstante sind Größen mit einem festen Wert. 
Der Satz «Hallo, hier bin ich!» ist eine feste Größe, also eine String- 
Konstante. 

String-Konstante sind in Modula-2 beliebige Zeichenfolgen, die 
entweder von doppelten (Gänsefüßchen) oder einfachen (Hoch¬ 
komma) Anführungszeichen eingeschlossen sind. Das einschlie¬ 
ßende Zeichen darf in der Zeichenfolge selbst nicht Vorkommen. 
Beispiel für String-Konstante: 

"Hallo, hier bin ich!" 

'Hallo, hier bin ich!' 

"Jetzt reicht's mir" Wenn das einfache Anführungszeichen 

benötigt wird, nimmt man das doppelte 
zur Klammemng. 

'Er sagte: "Es reicht!"' Und umgekehrt. 

Beispiele für unzulässige String-Konstante: 

"Hallo, hier bin ich!' Die Einschlußzeichen müssen gleich 

sein. 

'Jetzt reicht's mir' Das Einschlußzeichen darf selbst nicht 

Vorkommen. 

Jetzt stellt sich nur noch die Frage, wie wir an die gewünschten 
Prozeduren «WriteLn» und «WriteString» aus dem Modul «InOut» 
herankommen. Modula-2 stellt für diesen Zweck «IMPORT- 
Listen» zur Verfügung. Darin wird genau angegeben, welche Proze¬ 
duren aus welchem Modul eingebunden (importiert) werden. Die 
Importlisten folgen unmittelbar auf den Modul-Kopf und haben 
folgende Gestalt: 

IMPORT-Listen::={"FROM" Modulname "IMPORT" 

Bezeichner Bezeichner} }. 

Das bedeutet also, daß ein Programm-Modul keine, aber auch 
beliebig viele Bezeichner aus anderen Moduln importieren kann. 
Wir können somit unsere Programmdefinition vervollständigen: 
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Programm-Modul::="MODULE" Modulname 

IMPORT-Listen Block ModulName 


2.4 Begrüßung durch den Computer 


Jetzt wissen wir also, wie wir die benötigten Anweisungen in unser 
Programm bekommen. Unklar ist jedoch, wie wir sie dort verwen¬ 
den können. Bei «WriteLn» und «WriteString» handelt es sich um 
Prozeduren, also selbständige Teilprogramme, die eine komplexe 
Aufgabe lösen (auch wenn es nicht den Anschein hat, die Bild¬ 
schirmausgabe ist bereits eine komplizierte Aufgabe). Der Einsatz 
von Prozeduren geschieht ganz einfach durch Angabe des Prozedur¬ 
namens und, falls benötigt, der entsprechenden Parameter. Parame¬ 
ter werden immer in runden Klammern angegeben. Der Prozedur¬ 
aufruf ist die erste Anweisung, die wir somit kennenlernen: 

Anweisung: := Prozeduraufruf. 

Prozeduraufruf::=Prozedurname ["(" Parameterliste 
Parameterliste::=String-Konstante. 

Hier taucht ein neues Zeichen in unserer formalen Sprache auf: 
Mit eckigen Klammern gekennzeichnete Teile können höchstens 
einmal auftreten, müssen es aber nicht. 

Benötigt man in einem Programm mehrere Anweisungen, so 
werden sie - durch Strichpunkt (Semikolon) voneinander getrennt 
- nacheinander hingeschrieben. Sie werden dann in der angegebe¬ 
nen Reihenfolge abgearbeitet. In diesem Fall spricht man von einer 
Anweisungssequenz: 

Anweisungssequenz: := Anweisung Anweisung}. 

Die Anweisungen selbst stehen innerhalb eines Blocks. Ein Block, 
so haben wir das am obigen Beispiel kennengelernt, kann nur aus 
dem reservierten Wort «END» bestehen. In diesem Fall handelt es 
sich um einen leeren Block. Jeder nichtleere Block beginnt mit dem 
Schlüsselwort «BEGIN». Dann folgt eine Anweisungssequenz und 
schließlich das Schlüsselwort «END». Somit ergibt sich für einen 
Block folgende Syntax: 


Block: :=["BEGIN" Anweisungssequenz] "END". 
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Mit diesen Vorüberlegungen können wir jetzt das gewünschte 
Programm leicht realisieren: 

MODÜLE Hallo; 

FROM InOut IMPORT WriteLn, WriteString; 

BEGIN 

WriteLn; 

WriteString!’Hallo, hier hin ich!’); 

WriteLn 
END Hallo. 


Aufgaben: 

1. Was ist hier falsch? 


a) MODÜLE LeeresProgramm END Leeresprogramm; 

b) MODÜLE WoStecktDer_Fehler, 

FROM INOUT IMPORT WriteLn; WriteString; 

WriteLn; WriteString!'Modula-2 mit Fehlern!") 
WriteLn 
END Hallo. 


2. Aus welchen Symbolen besteht die EBNF-Notation, welche 
Bedeutung haben die Symbole? 

3. Definieren Sie den Begriff «String-Konstante» mit Hilfe der 
EBNF-Notation. 
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Das Grundprinzip der Datenverarbeitung ist sehr einfach: 

Eingabedaten -> Programm -> Ausgabedaten 

Für die Ein- und Ausgabe von Daten stehen vielerlei Geräte zur 
Verfügung: Tastatur, Bildschirm, Disketten, Drucker, Scanner, Joy¬ 
sticks und vieles mehr. Allen diesen Geräten ist gemeinsam, daß 
sie immer nur einen Strom von Bits (binären Einheiten, 0-1- 
Zustände) übertragen. Um welche Art von Daten es sich dabei 
handelt - Zahlen, Buchstaben, Bilder etc. - wird erst durch das 
verarbeitende Programm definiert. Man kann sagen: Ein Programm 
interpretiert diese Daten als Buchstaben und jene als Karteikarten. 

Um den verschiedenen Informationsarten des täglichen Lebens 
gerecht zu werden, stellt die Programmiersprache Modula-2 das 
Konzept der Datentypen zur Verfügung. Fest eingebaut sind dabei 
die am meisten benötigten Typen wie Zahlen und Buchstaben. 
Andere können beliebig zusammengestellt werden. 

In diesem Kapitel werden die sog. Grundtypen behandelt, aus 
denen später komplizierte und dem jeweiligen Problem optimal 
angepaßte Strukturen zusammengesetzt werden können. Die 
Grundtypen sind im Sprachkern vorhanden, sie müssen nicht aus 
Bibliotheksmoduln importiert werden. Bezeichner, die zwar keine 
Schlüsselwörter, (wie «BEGIN») aber dennoch bereits im Sprach¬ 
kern verfügbar sind, heißen «Standardbezeichner». Sie sind so 
aufzufassen, als wenn sie automatisch (aus einem unbekannten 
Modul) in jedes andere Modul importiert werden. 

Die Grundtypen von Modula-2: 

Name Bedeutung Beispiele 

CARDINAL Natürliche Zahlen inkl. 0 0 123 50000 
INTEGER Ganze Zahlen -1000 0 125 32785 
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CHAR Zeichen A B C + - . ! 

REAL Fließkommazahlen 3.14 -12.48E10 

BOOLEAN Wahrheitswerte TRUE FALSE 

Hinweis: Achten Sie auch bei den Standardbezeichnern darauf, daß 
diese (wie die Schlüsselwörter) immer in Großbuchstaben angege¬ 
ben werden müssen. 


3.1 Variablen-Deklaration 

Ein weiterer, wichtiger Begriff ist die «Variable». Dabei handelt es 
sich um eine Größe, die verschiedene Werte annehmen kann (im 
Gegensatz zu einer Konstanten). Den Wert einer Variablen kann 
man abfragen, verändern oder zu Berechnungen verwenden. Man 
kann sagen: Variable sind das Gedächtnis eines Programms. 

Betrachten wir einmal folgendes Problem: Wir sollen aus unse¬ 
rem Computer eine einfache Addiermaschine machen. Zu zwei 
eingegebenen Zahlen soll die Summe berechnet und ausgegeben 
werden. Ganz naiv, ohne gleich in einer Programmiersprache zu 
denken, könnte diese Aufgabe mit einer Anweisungsfolge gelöst 
werden: 

1. Lies eine Zahl von der Tastatur. 

2. Lies eine weitere Zahl. 

3. Berechne die Summe aus den beiden Zahlen. 

4. Gib die Summe auf dem Bildschirm aus. 

Allerdings geht weder aus der Problemstellung noch aus dem 
Lösungsansatz hervor, um welche Zahlen es sich dabei handelt. 
Wir wollen annehmen, daß es sich um natürliche Zahlen handeln 
soll. Damit ist der Datentyp (CARDINAL) klar. Die erste Anwei¬ 
sung «Lies eine Zahl von der Tastatur» setzt bereits das Vorhan¬ 
densein einer Variablen voraus, in der sich das Programm diese 
erste Zahl merken muß. Dasselbe gilt für die zweite Zahl und die 
Summe. Wir benötigen also drei Variable vom Typ CARDINAL. 
Dieser Bedarf wird dem Compiler im Deklarationsteil mitgeteilt. 
Um auf die einzelnen Variablen einfach zugreifen zu können, 
werden ihnen (wie dem Programm) Namen gegeben. 

Beispiel: 

VAR ErsteZahl, ZweiteZahl, Summe : CARDINAL; 
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Die Variablen-Deklaration beginnt also mit dem Schlüsselwort 
«VAR». Im Anschluß folgen, durch Komma getrennt, die Varia¬ 
blennamen und schließlich - nach einem Doppelpunkt - der Typ 
der Variablen. 

Deklaration:: =Variablen-Delclaration. 

Variablen-Deklaration::="VAR" {Variablenliste Typ 
Variablenliste: :=VariablenName VariablenName}. 
VariablenName: :=Bezeichner. 

Der Deklarationsteil ist Bestandteil eines Blocks und kommt 
immer unmittelbar vor dessen Anweisungsteil. 

Block: :=[Delclaration] ["BEGIN" Anweisungssequenz] "END". 

Vor diesem Hintergrund kann das obige Problem nun so angefaßt 
werden: 

Benötigt werden die Variablen «ErsteZahl», «ZweiteZahl» und 
«Summe» vom Datentyp CARDINAL. 

□ Lies von der Tastatur die Variable «ErsteZahl». 

□ Lies ebenso die Variable «ZweiteZahl». 

□ Bestimme die Summe dieser beiden Variablen und weise das 
Ergebnis der Variablen «Summe» zu. 

□ Gib die Variable «Summe» auf dem Bildschirm aus. 

Aber bevor wir diese Vorschrift nun endgültig in ein Programm 
übertragen können, müssen wir uns noch um die nötigen Ein- und 
Ausgabeprozeduren für CARDINAL-Zahlen kümmern. Sie sind 
ebenfalls im Modul «InOut» enthalten und heißen «ReadCard» 
und «WriteCard». Während bei «ReadCard» nur die einzulesende 
Variable als Parameter übergeben werden muß, bedarf «WriteCard» 
einer weiteren Angabe. Nach der auszugebenden Zahl wird, durch 
Komma getrennt, eine weitere (natürliche) Zahl als Formatangabe 
erwartet. Diese Zahl gibt die Breite des Feldes (in Zeichen) an, 
innerhalb dessen die auszugebende Zahl rechtsbündig ausgedruckt 
wird. 

Mit diesen Informationen kann das Programm endlich in Angriff 
genommen werden: 

MODULE Addition; 

FROM InOut IMPORT ReadCard, WriteCard; 

VAR ErsteZahl, ZweiteZahl, Summe : CARDINAL; 
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BEGIN 

ReadCard(ErsteZahl); 

ReadCard(ZweiteZahl); 

Summe:=ErsteZahl + ZweiteZahl; 

WriteCard(Summe,5) 

END Addition. 

Probelauf: 

7 

14 

21 

3.2 Die Zuweisung 

Hier ist wieder etwas Neues: Zu der einzig bisher bekan n ten 
Anweisung (Prozeduraufruf) ist eine weitere gekommen: die 
Zuweisung Summe:=ErsteZahl + ZweiteZahl. Die Zuweisung ist 
die fundamentalste aller Anweisungen. Sie ermöglicht die Verände¬ 
rung von Variablen. Ihre allgemeine Form ist: 

Zuweisung::= VariablenName Ausdruck. 

Der Begriff «Ausdruck» ist etwas komplizierter zu entschlüsseln. 
Eine erste Annäherung kann so lauten: Ein Ausdruck besteht aus 
Operanden und Operatoren. Operanden sind Konstante und Varia¬ 
ble. Operatoren sind Verknüpfungszeichen und verbinden zwei 
Operanden. 

Die zugelassenen Operatoren hängen vom Typ der Operanden ab. 
Bei CARDINAL-Zahlen sind das bsw. die Rechenzeichen + und - 
oder das Vergleichszeichen < (kleiner). Das Ergebnis einer Opera¬ 
tion ist wieder von einem bestimmten Typ. 

Wir wollen uns die genaue Definition von «Ausdruck» für den 
zweiten Teil des Buches aufheben und an dieser Stelle auf unsere 
Intuition vertrauen, syntaktisch korrekte Ausdrücke zu bilden. 
Nicht korrekt sind sicherlich Formulierungen wie «1+- 9 » oder 
«ErsteZahl — ZweiteZahl». 
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3.3 Natürliche Zahlen: CARDINAL 

Folgende Rechenoperationen stehen für CARDINAL-Zahlen zur 
Verfügung: 


Zeichen 

Bedeutung 

Beispiel 

Ergebnis 

+ 

Addition 

3+19 

22 

- 

Subtraktion 

100-97 

3 

★ 

Multiplikation 

12*9 

108 


DIV Ganzzahlige Division 19 DIV 4 4 (Rest bleibt 

unberücksich¬ 

tigt) 

MOD Rest bei Division 19 MOD 4 3 

Hinweis: «DIV» und «MOD» sind Schlüsselwörter. 

Bei der Berechnung eines Ausdrucks (durch den Computer) gilt die 
Regel, daß Punktrechnungen (*, DIV und MOD) vor Strichrech¬ 
nungen (+ und -) ausgeführt werden. Zum Ändern der Berech¬ 
nungsreihenfolge (Priorität) können beliebig viele runde Klammern 
verwendet werden. Ausdrücke dürfen über mehrere Zeilen reichen. 
Bei der Ausführung der Zuweisung wird immer erst der Ausdruck 
vollständig berechnet und schließlich das Ergebnis der Variablen 
auf der linken Seite des Zuweisungszeichens «:=» zugewiesen. 

Noch ein Beispiel: Es soll ein Programm geschrieben werden, das 
zwei natürliche Zahlen einliest. Ausgegeben werden soll der ganz¬ 
zahlige Quotient und der Rest der Teilung der ersten durch die 
zweite Zahl. 

Lösung 1: 

MODÜLE DivisionMitRestl; 

FROM InOut IMPORT ReadCard, WriteCard; 

VAR ErsteZahl, ZweiteZahl, Quotient, Rest : CARDINAL; 

BEGIN 

ReadCard(ErsteZahl); 

ReadCard(ZweiteZahl); 

Quotient:=ErsteZahl DIV ZweiteZahl; 

Rest:“ErsteZahl MOD ZweiteZahl; 

WriteCard(Quotient,5); 

WriteCard(Rest,5) 

END DivisionMitRestl. 
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Probelauf: 

19 

5 

3 4 

Ausdrücke können auch als Parameter von Prozeduren verwendet 
werden, wenn diese nur einen Wert benötigen. Ein Beispiel hierfür 
ist «WriteCard», wo der Wert der übergebenen Zahl auf dem 
Bildschirm ausgegeben wird. Es sind also auch Aufrufe wie «Write- 
Card( 12+25,5)» oder «WriteCard) 19 MOD 4,5)» möglich. Der erste 
entspricht «WriteCard(37,5)», der letzte «WriteCard(3,5)». Somit 
kann das obige Programm auch so gelöst werden: 

Lösung 2: 

MODDLE DivisionMitRest2; 

FROM InOut IMPORT ReadCard, WriteCard; 

VAR ErsteZahl, ZweiteZahl : CARDINAL; 

BEGIN 

ReadCard(ErsteZahl); 

ReadCard(ZweiteZahl); 

WriteCard(ErsteZahl DIV ZweiteZahl,5); 

WriteCard(ErsteZahl MOD ZweiteZahl,5) 

END DivisionMitRest2. 

Zu allen bisherigen Programmen ist zu bemerken: Sie sind nicht 
benutzerfreundlich. Nach dem Start steht der Cursor blinkend auf 
dem Bildschirm, es erscheinen keine Angaben, was jetzt passiert 
oder passieren soll. Auch die Ausgaben stehen kommentarlos 
nebeneinander. Wir erkennen schon hier die Wichtigkeit, bei jeder 
Ein- und Ausgabe auf die Klarheit der Anwenderführung hinzuar¬ 
beiten. Das notwendige Werkzeug haben wir bereits in dem Modul 
«Hallo» kennengelernt: die Prozeduren «WriteString» und «Wri- 
teLn». Damit kann schließlich eine befriedigendere Lösung gefun¬ 
den werden: 


Lösung 3: 

MODDLE DivisionMitRest3; 

FROM InOut IMPORT WriteLn, WriteString, ReadCard, WriteCard; 

VAR ErsteZahl, ZweiteZahl : CARDINAL; 

BEGIN 

WriteLn; 

WriteString("Divisionsprogramm"); 

WriteLn; 

WriteString("Bitte geben Sie eine ganze positive Zahl ein: "); 
ReadCard(ErsteZahl); 
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WriteLn; 

WriteString("Und jetzt die zweite Zahl: "); 
ReadCard(ZweiteZahl); 

WriteLn; 

WriteString("Der Quotient ist: "); 
WriteCard(ErsteZahl DIV ZweiteZahl,5); 
WriteLn; 

WriteString("Der Rest ist: "); 
WriteCard(ErsteZahl MOD ZweiteZahl,5); 
WriteLn; 

END DivisionMitRest3. 


Probelauf: 

Divisionsprogramm 

Bitte geben Sie eine ganze positive Zahl ein: 19 
Und jetzt die zweite Zahl: 5 
Der Quotient ist: 3 
Der Rest ist: 4 

Selbstverständlich dürfen Sie mehrere Anweisungen in eine Zeile 
schreiben. Solange sie inhaltlich zusammengehören, ist auch vom 
Standpunkt der Programmklarheit nichts dagegen einzuwenden. 

Lösung 4: 

MODULE DivisionMitRest4; 

FROM InOut IMPORT WriteLn, WriteString, ReadCard, WriteCard; 

VAR ErsteZahl, ZweiteZahl : CARDINAL; 

BEGIN 

WriteLn; WriteStringf"Divisionsprogram"); WriteLn; 

WriteString("Bitte geben Sie eine ganze positive Zahl ein: "); 

ReadCard(ErsteZahl); WriteLn; 

WriteString("Und jetzt die zweite Zahl: "); ReadCard(ZweiteZahl); WriteLn; 
WriteString("Der Quotient ist: "); WriteCard(ErsteZahl DIV ZweiteZahl,5); 
WriteLn; 

WriteString("Der Rest ist: "); WriteCard(ErsteZahl MOD ZweiteZahl,5); 
WriteLn; 

END DivisionMitRest4. 


In Modula-2 kö nn en Sie CARDINAL-Zahlen nicht nur in der 
üblichen Dezimaldarstellung angeben, sondern auch die HEX- und 
Oktaldarstellung verwenden: 

Hexadezimal: 0F32H (muß immer mit einer Ziffer beginnen, H 
wird nachgestellt) 

Oktal: 1234Q (Q wird nachgestellt) 
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Aufgaben: 

1. Schreiben Sie ein Programm, das die Differenz zweier Zahlen 
berechnet. Testen Sie das Programm mit verschiedenen Zahlen¬ 
paaren. Was passiert, wenn die Differenz negativ wird? 

2. Schreiben Sie ein Programm, das drei Zahlen miteinander multi¬ 
pliziert. Achten Sie auf die nötigen Bildschirmhinweise. 


3.4 Ganze Zahlen: INTEGER 

Innerhalb der natürlichen Zahlen kann man keine beliebigen Diffe¬ 
renzen bilden. Bei vielen alltäglichen Aufgaben (und nicht nur im 
Finanzwesen) können jedoch negative Ergebnisse auftreten. Aus 
diesem Grund gibt es einen weiteren Grundtyp, der die Menge der 
positiven und negativen ganzen Zahlen umfaßt. Sein Name ist 
INTEGER. 

Auf den Datentyp INTEGER können dieselben Operationen ange¬ 
wandt werden wie auf CARDINAL. Hinzu kommt noch der Opera¬ 
tor - als Vorzeichen. Beispiel für Ausdrücke vom Typ INTEGER: 

(19+8) *2-200 
-23000+123 *(64 DIV 7) 

-(73 MOD 9)*(—3) 

Vielleicht stellen Sie sich jetzt die Frage, welchen Sinn diese 
Unterscheidung CARDINAL und INTEGER hat, da ja die natürli¬ 
chen Zahlen (CARDINAL) ganz offensichtlich ein Teil der ganzen 
Zahlen (INTEGER) sind und dieser Typ somit vollkommen ausrei¬ 
chen würde. 

Die Beantwortung dieser Frage wirft ein neues Licht auf die 
Arbeit mit Modula-2. Durch die strenge Typenbindung kann 
sowohl der Compiler als auch das Laufzeitsystem eine Typenüber¬ 
prüfung vornehmen. Das bedeutet, daß schon beim Übersetzen 
eines Programms ganz offensichtliche Fehlzuweisungen erkannt 
und zurückgewiesen werden. Wenn sich während des Programmab¬ 
laufs illegale Werte ergeben (Differenz zweier CARDINAL-Zahlen 
mit negativem Ergebnis), wird das Programm mit einer entspre¬ 
chenden Fehlermeldung abgebrochen. Damit ist es möglich, Pro¬ 
grammierfehlern schnell auf die Spur zu kommen. Die strenge 
Typenbindung hat also den Sinn, zur Programmsicherheit und 
Fehlerfreiheit beizutragen. Bei kleinen Programmen ist der Vorteil 
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nicht immer unmittelbar ersichtlich, bei großen Programmen hin¬ 
gegen ist die Typenbindung eine unverzichtbare Hilfe. 

Prinzipiell können wir hier eine Programmierregel formulieren: 
Verwenden Sie stets den knappesten Typ für die jeweilige Aufgabe! 
Wenn es beispielsweise darum geht, irgendwelche Dinge mittels 
eines Programms zu zählen, so wäre der Bereich der ganzen Zahlen 
zu groß. Es gibt keine negativen Anzahlen. Somit kann der (knap¬ 
pere) Typ CARDINAL eingesetzt werden. Das Befolgen der obigen 
Regel bewirkt eine direkte Programmierunterstützung durch das 
Modula-2-System. 

Nur der Vollständigkeit halber sei noch ein weiterer Unterschied 
angeführt. Für die computerinterne Darstellung von Zahlen wird 
immer eine bestimmte Anzahl von Speichereinheiten (Speicher¬ 
worten, engl, words) benötigt. Aus diesem Grund ist der Bereich der 
Zahlen (CARDINAL oder INTEGER) niemals unendlich groß, es 
findet immer nur ein Ausschnitt aus den jeweiligen Zahlenmengen 
Verwendung. Die Größe des Bereiches ist implementationsabhän¬ 
gig. Auf Rechnern mit 32-Bit-Architektur ist er üblicherweise 
größer als auf solchen, die mit einem 8- oder 16-Bit-Prozessor 
arbeiten. Es gibt also immer eine größte und eine kleinste INTE¬ 
GER'- und CARDINAL-Zahl. Da der zur Verfügung gestellte Spei¬ 
cherplatz für Variable beider Typen gleich groß ist, ist die größte 
CARDINAL-Zahl normalerweise immer das doppelte der größten 
INTEGER-Zahl. Um davon eine Vorstellung zu geben, hier die 
Werte für 16-Bit-Systeme: 

Typ kleinster Wert größter Wert 

CARDINAL 0 65535 

INTEGER -32768 32767 

Die Ein- und Ausgabeprozeduren für INTEGER-Zahlen sind eben¬ 
falls im schon bekannten Modul «InOut» zu finden. Hier nun das 
Programm, das die Differenz zweier ganzer Zahlen berechnet: 


MODULE Differenz; 

FROM InOut IMPORT WriteString, WriteLn, Readlnt, Writelnt; 

VAR ErsteZahl, ZweiteZahl : INTEGER; 

BEGIN 

WriteLn; WriteString("Subtraktionprogramm"); WriteLn; 

WriteString("Bitte geben Sie eine ganze Zahl ein: "); 

Readlnt(ErsteZahl); WriteLn; 

WriteString("Und jetzt die zweite Zahl: "); Readlnt(ZweiteZahl); WriteLn; 
WriteString!"Die Differenz ist: "); WriteInt(ErsteZahl-ZweiteZahl,5); 
WriteLn 
END Differenz. 
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Probelauf: 

Subtraktionsprogramm 

Bitte geben Sie eine ganze Zahl ein: 123 

Und jetzt die zweite Zahl: 234 

Die Differenz ist: -111 

Hinweis: In Ausdrücken dürfen INTEGER- und CARDINAL-Zah- 
len nicht gemischt verwendet werden! 

Aufgaben: 

1. Schreiben Sie das Divisionsprogramm mit ganzen Zahlen. 

2. Testen Sie, wie Ihr Modula-2-System auf Typenmischung 
reagiert. 

3.5 Konvertierung von CARDINAL nach INTEGER 
und umgekehrt 

Werden beide Typen in einem Ausdruck benötigt, so müssen (und 
können) die Typen umgewandelt werden, je nachdem, welchen 
Typ der Ausdruck haben soll. Die Vorgehensweise ist sehr einfach. 

Zunächst wird der Name des neuen Typs angegeben, gefolgt vom 
- in runden Klammern eingeschlossenen - Namen der Variablen. 
Dieses «Umtypisieren» (engl, re-typing) ist mit allen Typen mög¬ 
lich (aber nur manchmal sinnvoll). 

Beispiel: 

VAR ErsteZahl, ZweiteZahl : CARDINAL; 

Differenz : INTEGER; 

... Differenz:=INTEGER(ErsteZahl)-INTEGER(ZweiteZahl) 
oder 

... ErsteZahl:=CARDINAL(Differenz)+ZweiteZahl 

Hinweis: Die Umtypisierung ist keine echte Typumwandlung. Jede 
Variable (oder der Wert eines Ausdrucks) wird intern als Bitmuster 
gespeichert. Wie schon bemerkt, bewirkt die Typangabe eine ent¬ 
sprechende Interpretation dieses Bitmusters. Bei der Umtypisie¬ 
rung findet lediglich eine andere Interpretation dieses Bitmusters 
statt. Sie ist nur sinnvoll, wenn die Bitmuster der verschiedenen 
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Typen in Teilbereichen äquivalent sind und zudem der benötigte 
Speicherplatz gleich groß ist. Das ist bei den Typen CARDINAL 
und INTEGER im Bereich von 0 bis zur größten INTEGER-Zahl der 
Fall. Außerhalb dieses Bereichs tritt immer eine Fehlinterpretation 
auf. Sie können das sichtbar machen, indem Sie mit dem folgenden 
Programm etwas experimentieren. 

MODULE ReTypingTest; 

FROM InOut IMPORT ReadCard, Readlnt, WriteCard, Writelnt, 
WriteString, WriteLn; 

VAR CardinalZahl : CARDINAL; 

IntegerZahl : INTEGER; 

BEGIN 

WriteLn; WriteString("Typumwandlung mit Umtypisierung"); WriteLn; 
WriteString("Geben Sie eine CARDINAL-Zahl ein: "); 

ReadCard(CardinalZahl); WriteLn; 

WriteString!"Geben Sie eine INTEGER-Zahl ein: "); 

Readlnt!IntegerZahl); WriteLn; 

WriteString!"Die CARDINAL-Zahl als INTEGER: "); 

Writelnt!INTEGER!CardinalZahl): WriteLn; 

WriteString!"Die INTEGER-Zahl als CARDINAL: "); 

WriteCard!CARDINAL!IntegerZahl); WriteLn 
END ReTypingTest. 


Probelauf; 

Typumwandlung mit Umtypisierung 
Geben Sie eine CARDINAL-Zahl ein: 1000 
Geben Sie eine INTEGER-Zahl ein; -1 
Die CARDINAL-Zahl als INTEGER: 1000 
Die INTEGER-Zahl als CARDINAL: 65535 


3.6 Zeichen: CHAR 

Sprachliche Äußerungen, die auf irgendeine Weise niedergelegt 
werden, nennt man Texte. Sie sind das häufigste mittelbare Kom¬ 
munikationsmittel für Menschen (im Gegensatz zur unmittelbaren 
Anrede). Auch dieses Buch ist nichts anderes als ein auf Papier 
festgehaltener Text. Ein Text besteht aus Buchstaben, Ziffern und 
Sonderzeichen wie Punkt oder Gänsefüßchen. Wenn Sie einen Text 
niederschreiben (z. B. einen Programmtext eingeben), so erfahren 
Sie, daß noch einige weitere Zeichen benötigt werden, um auch die 
Struktur (Zeilenende, neue Seite, Tabulator) eines Textes festzule¬ 
gen. Solche Zeichen, die nur der Strukturierung oder Übertragung 
eines Textes dienen, werden «Steuerzeichen» genannt. Jene, die 
wirklich sichtbar sind, heißen «druckbare Zeichen». Übrigens 
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gehört auch das Leerzeichen zu den druckbaren Zeichen, da es 
indirekt sichtbar ist. Sein Fehlen würde zu einem Zusammenkle¬ 
ben der Wörter führen. 

Um einem Wildwuchs bei den Zeichen, die von Computern 
verarbeitet werden können, vorzubeugen, wurde schon sehr früh 
ein Zeichenvorrat definiert, der auf allen Rechnern verfügbar sein 
muß. Der international standardisierte Zeichensatz (ISO-Standard, 
ISO = International Standards Organisation) heißt in den Vereinig¬ 
ten Staaten ASCII (American Standard Code for Information Inter¬ 
change, sprich «Aski») und wird auch bei uns so genannt. Er 
besteht aus 128 Zeichen, von denen die ersten 32 die Steuerfunk¬ 
tionen übernehmen. 
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Leider wurden bei den druckbaren Zeichen nur jene berücksichtigt, 
die vom englischen Alphabet benötigt werden. So gibt es in der 
ASCII-Tabelle beispielsweise keine deutschen Umlaute. Aus die¬ 
sem Grund wurden einige länderspezifische Abwandlungen der 
ASCII-Tabelle geschaffen. Im deutschen Sprachraum gibt es eine 
Variante, bei der die Umlaute an die Stelle der Zeichen "[" (Ä), " \ "(Ö), 
"]"(Ü), "{"(ä), "|"(ö), "}"(ü) und " '"(ß) gesetzt wurden. Einen ande¬ 
ren Ausweg bietet die Ausweitung der Tabelle auf 256 Zeichen. 
Hier findet vermehrt der Zeichensatz Verwendung, den IBM für 
seine Personalcomputer geschaffen hat. Diese Erweiterung hat den 
Vorteil, daß die ersten 128 Zeichen unberührt bleiben. 

Als Grundlage für jede sprachliche Kommunikation stellt 
Modula-2 mit «CHAR» einen Datentyp zur Verfügung, der alle 
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Zeichen der (u.U. erweiterten) ASCII-Tabelle erfaßt. In «InOut» 
befinden sich die Prozeduren «Read» und «Write» zur Ein- und 
Ausgabe genau eines Zeichens. Ein kleines, triviales Programm soll 
ein Zeichen einiesen und wieder ausgeben: 

MODULE ZeichenEinAus; 

FROM InOut IMPORT Read, Write; 

VAR Zeichen : CHAR; 

BEGIN 

Read(Zeichen); Write(Zeichen) 

END ZeichenEinAus. 

Konstante von druckbaren Zeichen werden, wie String-Konstante, 
in einfache oder doppelte Anführungszeichen eingeschlossen, z. B. 
’A' oder oder ' ' (Leerzeichen). Steuerzeichen werden durch 
ihren ASCII-Code angegeben, dem der Buchstabe C direkt nachge¬ 
stellt wird. Leider muß die Angabe des Codes im Oktalsystem 
erfolgen und nicht in der gebräuchlichen Dezimaldarstellung. Aber 
anhand der obigen Tabelle ist der entsprechende Oktal wert leicht 
zu finden. Am Anfang einer Tabellenspalte stehen die ersten drei 
Oktalziffern, zu der Sie die Zeilennummer eines bestimmten Zei¬ 
chens addieren müssen. Beispiel: das Zeichen A (dez. 65) steht in 
der Spalte mit der Ziffernfolge 100, die Zeilennummer ist 1, also 
ergibt die Oktaldarstellung 101 und die Zeichenkonstante 101C. 
Bei der Oktaldarstellung dürfen führende Nullen weggelassen 
werden. 

Beispiele: 

Write(007C) oder Write(7C) läßt den Rechner piepsen 
Write(lOlC) bringt A auf den Bildschirm 

Es dürfte klar sein, daß Daten vom Typ CHAR intern als Zahlen 
laut ASCII-Tabelle behandelt werden. Somit müßte eine Umwand¬ 
lung von einem Zeichen in seine entsprechende ASCII-Darstellung 
und umgekehrt eigentlich leicht möglich sein. Eine Umwandlung 
durch Umtypisierung scheidet jedoch aus, da der benötigte Spei¬ 
cherplatz von CARDINAL-Zahlen (ein Speicherwort) und Zeichen 
(ein Byte = ein Bruchteil eines Speicherwortes) beträgt. Aus diesem 
Grund gibt es die zwei Standardfunktionen «ORD» und «CHR», 
die diese Umwandlung bewerkstelligen. 

Funktionen können wir an dieser Stelle als besondere Operatoren 
auffassen. Dabei wird der Funktionsname vorangestellt, die Ope¬ 
randen folgen in runden Klammern eingeschlossen und durch 
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Komma getrennt (wie die Parameter von Prozeduren). Bezieht sich 
die Funktion nur auf einen Parameter (Argument), so steht selbst¬ 
verständlich kein Komma. Wie normale Operatoren, erhalten auch 
Funktionen immer ein Ergebnis (eines ganz bestimmten Typs). 
Somit können sie auch beliebig in Ausdrücken verwendet werden. 

Funktion Argument Ergebnis Bemerkung 

ORD CHAR CARDINAL ASCII-Code eines Zeichens 

CHR CARDINAL CHAR Zeichen lt. ASCII-Tabelle 

Beispiel: 

ORD('A') ergibt die CARDINAL-Zahl 65 
CHR(65) ergibt das Zeichen ’A’ 


Wie Sie aus der ASCII-Tabelle ersehen können, haben die Klein¬ 
buchstaben einen um den Wert 32 höheren ASCII-Code als die 
entsprechenden Großbuchstaben. Ein Programm, das einen Groß¬ 
buchstaben einliest und diesen kleingeschrieben wieder ausgibt, 
kann so realisiert werden: 

MODULE GrossUndKlein; 

FROM InOut IMPORT Read, Write, WriteString, WriteLn; 

VAR Grossbuchstabe, Kleinbuchstabe : CHAR; 

GrossbuchstabenCode, KleinbuchstabenCode : CARDINAL; 

BEGIN 

WriteLn; WriteString("Bitte geben Sie einen Großbuchstaben ein: 
Read(Grossbuchstabe); 

GrossbuchstabenCode:=ORD(Grossbuchstabe); 

KleinbuchstabenCode:=GrossbuchstabenCode+32; 

Kleinbuchstabe:=CHR(KleinbuchstabenCode); 

WriteString(" - > "; Write(Kleinbuchstabe); WriteLn 
END GrossUndKlein. 


Hinweis: Da die Umwandlung von Klein- in Großbuchstaben sehr 
häufig benötigt wird, gibt es diese als Standardfunktion «CAP». 

CAP('a') ergibt A 

CAP('z') ergibt Z 

CAP('!') ergibt ! 

(Alle Zeichen außer den Kleinbuchstaben werden nicht umgewan¬ 
delt.) 
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Aufgaben: 

1. Schreiben Sie das Programm «GrossUndKlein» so um, daß mög¬ 
lichst wenige Variablen benötigt werden. Vergleichen Sie die 
Programme, und beurteilen Sie die Klarheit der einzelnen Ver¬ 
sionen. 

2. Schreiben Sie ein Programm, das eine Dezimalzahl (bis max. 
127) einliest und diese in Oktaldarstellung ausgibt (ohne die 
Prozedur «WriteOct» aus InOut zu verwenden). Benützen Sie 
ausschließlich bisher bekannte Konstruktionen. Geben Sie die 
Oktalzahl dreistellig mit führenden Nullen aus. Dazu ein Hin¬ 
weis (für mathematisch Unbedarfte): Die erste Ziffer ist das 
Ergebnis der ganzzahligen Teilung der Dezimalzahl durch 64. 
Die zweite Ziffer erhalten Sie, wenn Sie den Rest dieser Teilung 
durch acht teilen. Und die dritte Ziffer schließlich ist der Rest 
der zweiten Teilung. 

3.7 Wahrheitswerte: BOOLEAN 

Die Wahrheit eines Computers hat nichts mit dem philosophi¬ 
schen Begriff «Wahrheit» zu tun. Sie gibt nur schlicht darüber 
Auskunft, ob ein Sachverhalt, der innerhalb der beschränkten Zah¬ 
lenwelt eines Rechners darstellbar ist, zutrifft oder nicht. Trifft ein 
Sachverhalt zu, so wird der Satz, mit dem dieser Sachverhalt 
ausgedrückt wird, als «wahr» (engl, true) bezeichnet, andernfalls 
als «falsch» (engl, false). Die Sachverhalte sind meist einfache 
Vergleiche, wie «Die Zahl A ist größer als die Zahl B» oder 
Zustände wie «Auf der Tastatur wurde eine Taste gedrückt». 

Der Datentyp BOOLEAN hat somit einen sehr kleinen Wertebe¬ 
reich: FALSE und TRUE. Eine Variable dieses Typs kann immer 
nur einen der beiden Werte annehmen. Trotzdem ist dieser Daten¬ 
typ für die Programmierung von allerhöchster Wichtigkeit, denn er 
bildet die Grundlage für die interne Steuerung eines Programms. Je 
nachdem, ob das Ergebnis eines Ausdrucks vom Typ BOOLEAN 
den Wert TRUE oder FALSE annimmt, wird das Programm anders 
Weiterarbeiten. Oder eine bestimmte Anweisungsfolge wird so 
lange wiederholt, bis das Ergebnis eines booleschen Ausdrucks 
TRUE ist. Aufgrund dieser großen Wichtigkeit werden wir uns an 
dieser Stelle ausgiebig mit dem Typ BOOLEAN beschäftigen. 

Leider gibt es im Modula-2-System keine Ein- und Ausgabeproze¬ 
duren für den Datentyp BOOLEAN, weil diese in der normalen 
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Programmierarbeit nicht benötigt werden. Während des Erlernens 
der Sprache können sie jedoch viel zur Klärung und Überprüfung 
beitragen. Deshalb wollen wir an dieser Stelle - unter Vorgriff auf 
die nächsten Kapitel - ein eigenes Bibliotheksmodul für den 
erwähnten Zweck entwickeln. Die Erklärung all dessen, was jetzt 
noch fremd und unverständlich ist, wird etwas später ausführlich 
nachgeholt. 


3.7.1 Das Bibliotheksmodul «BooleanlnOut» 

Bitte führen Sie Schritt für Schritt diese Arbeitsanleitung aus: 

1. Tippen Sie den folgenden Modul-Text ab und lassen ihn von 
Ihrem Compiler übersetzen. 

DEFINITION MODDLE BooleanlnOut; 

PROCEDURE ReadBoolean(VAR B : B00LEAN); 

PROCEDURE WriteBoolean(B : B00LEAN); 


END BooleanlnOut. 


Falls Sie eine Fehlermeldung erhalten, so fügen Sie nach dem 
Modul-Kopf folgende Zeile ein: 


EXPORT QUALIFIED ReadBoolean, WriteBoolean; 


2. Verfahren Sie ebenso mit dem folgenden Text. 

IMPLEMENTATION MODULE BooleanlnOut; 

FROM InOut IMPORT ReadString, WriteString, WriteLn; 

PROCEDURE ReadBoolean(VAR B : B00LEAN); 

VAR Eingabe : ARRAY[0..10] OF CHAR; 

Okay : B00LEAN; 

PROCEDURE gleichtX : ARRAY OF CHAR; Y : ARRAY OF CHAR) : B00LEAN; 
VAR i : CARDINAL; 

PROCEDURE min(X,Y : CARDINAL) : CARDINAL; 

BEGIN 

IF X<Y THEN RETURN X ELSE RETURN Y END 
END min; 

BEGIN (« gleich *) 

FOR i:=0 TO min(HI(X),HI(Y)) DO 

IF X[i]< >Y[i] THEN RETURN FALSE END 
END; (» FOR *) 

RETURN TRUE 
END gleich; 
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BEGIN (* ReadBoolean *) 

Okay:=FALSE; 

REPEAT 

ReadString!Eingabe); 

IF NOT(gleich(Eingabe,’TRUE’) OR gleich(Eingabe,’FALSE’)) 
THEN WriteString!" - ?"); WriteLn 
ELSE OKay:=TRUE 
END (» IF ») 

UNTIL Okay; 

B:=gleich(Eingabe,’TRUE’) 

END ReadBoolean; 

PROCEDURE WriteBoolean; 

BEGIN 

IF B THEN WriteStringC'TRUE") ELSE WriteString("FALSE") END 
END WriteBoolean; 

END BooleanlnOut. 


Jetzt steht Ihnen ein weiteres Bibliotheksmodul zur Verfügung, aus 
dem Sie die Prozeduren «ReadBoolean» und «WriteBoolean» 
importieren können. Ein kleines Programm zum Testen dieses 
Moduls: 

MODULE BooleanTest; 

FROM BooleanlnOut IMPORT ReadBoolean, WriteBoolean; 

FROM InOut IMPORT WriteString, WriteLn; 

VAR Eingabe : BOOLEAN; 

BEGIN 

WriteLn; WriteString("Bitte geben Sie ’TRUE’ oder ’FALSE’ ein: "); 
ReadBoolean(Eingabe); WriteLn; 

WriteString!"Es wurde "); 

WriteBoolean!Eingabe); 

WriteString!" eingegeben."); WriteLn 
END BooleanTest. 


3.7.2 Operationen mit booleschem Ergebnis 

Zur Formulierung einfacher Aussagen stehen die sog. «relationalen 
Operatoren» zur Verfügung. Damit können typengleiche Aus¬ 
drücke miteinander verglichen werden. Je nachdem, ob der ausge¬ 
drückte Vergleich zutrifft oder nicht, erhält die Aussage den Wert 
TRUE oder FALSE. 


Operator Bedeutung 


<> oder # 
< 

<= 

> 

>= 


gleich 

ungleich 

kleiner 

kleiner oder gleich 
größer 

größer oder gleich 
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Diese Operatoren sind auf alle Grundtypen anwendbar. Während 
der Einsatz bei Zahlen klar ist (von zwei Zahlen kann immer 
bestimmt werden, welche die größere ist oder ob sie gleich sind), ist 
der Vergleich von Zeichen (CHAR) und Wahrheitswerten (BOO- 
LEAN) auf «größer» und «kleiner» nicht unmittelbar einleuchtend. 
Nun, den Zeichen liegt ganz einfach die ASCII-Tabelle zugrunde. 
Jedem Zeichen entspricht eine Zahl, und diese Zahlen können ganz 
normal verglichen werden. 


Beispiele: 

'A' < 'B' ergibt TRUE 

’Z‘ <='0' ergibt FALSE 

>= '!' ergibt FALSE 


Die Wahrheitswerte sind willkürlich angeordnet. Bei der Defini¬ 
tion von Modula-2 wurde festgelegt: FALSE < TRUE. Die Frage, ob 
es überhaupt sinnvoll ist, Wahrheitswerte größenmäßig zu verglei¬ 
chen, können wir erst weiter unten beantworten. 

Hier ein kleines Programm zur Demonstration der relationalen 
Operatoren: 


MODULE Vergleiche; 

FROM BooleanlnOut IMPORT WriteBoolean; 

FROM InOut IMPORT WriteString, WriteReal, ReadCard, WriteCard; 
VAR x, y : CARDINAL; 

BEGIN 


WriteString( 1 
WriteString( 1 
WriteLn; 
WriteString( 1 
WriteString( 1 
WriteString( 1 
WriteLn; 
WriteString("x 
WriteString("x 
WriteString("x 
WriteString("x 
WriteString("x 
END Vergleiche. 


'Die relationalen Operatoren"); WriteLn; 

1 -"); WriteLn; 

'Bitte geben Sie zwei CARDINAL-Zahlen ein:"); WriteLn; 
x 

y 


< 

< = 


> 

>= 


’); 

’): 

y 

y 

y 

y 

y 


ReadCard(x); WriteLn; 
ReadCard(y); WriteLn; 


-> "); WriteBoolean(x<y); WriteLn; 
-> "); WriteBoolean(x<=y); WriteLn; 
-> "); WriteBoolean(x =y); WriteLn; 
-> "); WriteBoolean(x>y); WriteLn; 
-> "); WriteBoolean(x>=y); WriteLn 


Probelauf: 

Die relationalen Operatoren 


Bitte geben Sie zwei CARDINAL-Zahlen ein: 
x = 1250 
y = 333 





Junktoren 43 


x < y -> FALSE 
x <= y -> FALSE 
x = y -> FALSE 
x > y -> TRUE 
x >= y -> TRUE 


3.7.3 Funktionen mit booleschem Ergebnis 

In Modula-2 gibt es genau eine Standardfunktion, die ein Ergebnis 
vom Typ BOOLEAN liefert: ODD(x) gibt an, ob die (CARDINAL - 
oder INTEGER-)Zahl x ungerade oder gerade (ohne Rest durch zwei 
teilbar) ist. 

ODD(13) ergibt TRUE 
ODD(-14) ergibt FALSE 

Später werden wir die Möglichkeit kennenlernen, selbst Funktio¬ 
nen mit booleschem Ergebnis zu schreiben. 


3.7.4 Junktoren 

Vergleiche, boolesche Variable, Funktionen und Konstante sind die 
elementaren Bausteine (oder Aussagen). Mit den Bindewörtern 
(Junktoren) «NOT» (nicht), «AND» (und) und «OR» (oder) können 
elementare Aussagen zu komplexen Sätzen verknüpft werden. 
Dabei hängt der Wahrheitswert der komplexen Aussage aus¬ 
schließlich von den Wahrheitswerten der Einzelsätze und dem 
verwendeten Junlctor ab. 

«NOT» (Negation) dreht den Wahrheitswert um. «NOT TRUE» 
ergibt «FALSE» und «NOT FALSE» ergibt «TRUE». Somit ist klar, 
daß eine doppelte Negation wieder den Ausgangswert liefert: 
«NOT (NOT TRUE)» ergibt «NOT FALSE», und das wiederum ist 
gleichbedeutend mit «TRUE». «NOT» hat für Wahrheitswerte 
offensichtlich eine ähnliche Funktion wie das Vorzeichen - bei 
ganzen Zahlen. 

«AND» (Konjunktion) entspricht dem umgangssprachlichen 
«und». Werden zwei Aussagen mit «AND» verbunden, so wird die 
zusammengesetzte Aussage nur dann «TRUE», wenn beide Teile 
den Wert «TRUE» haben, ansonsten ist sie immer «FALSE». 

«OR» (Adjunlction) übernimmt die Funktion des «nichtaus- 
schließenden oder». «SATZ1 OR SATZ2» bedeutet also «SATZ1 
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ODER SATZ2 ODER BEIDE», und nicht «ENTWEDER SATZ1 
ODER SATZ2». Eine mit «OR» verknüpfte Aussage wird nur dann 
«FALSE», wenn beide Komponenten «FALSE» sind, andernfalls 
wird sie «TRUE». 

Die Funktion der Junktoren kann in einer sog. Wahrheitstabelle 
dargestellt werden: 


Satzl 

Satz2 

NOT Satzl 

Satzl AND 

Satz2 

Satzl OR 

Satz2 

FALSE 

FALSE 

TRUE 

FALSE 

FALSE 

FALSE 

TRUE 

TRUE 

FALSE 

TRUE 

TRUE 

FALSE 

FALSE 

FALSE 

TRUE 

TRUE 

TRUE 

FALSE 

TRUE 

TRUE 


Werden boolesche Ausdrücke mit Hilfe der angesprochenen Junk¬ 
toren gebildet, sind folgende Prioritätsfolgen zu beachten: 

□ NOT bindet stärker als AND. 

□ AND bindet stärker als OR. 

□ Junktoren binden stärker als relationale Operatoren. 

□ Zum Verändern der Priorität können runde Klammern verwen¬ 
det werden. 


3.7.5 Abarbeitung boolescher Ausdrücke in Modula-2 

In Ausdrücken werden die einzelnen Operatoren ihrer Priorität 
entsprechend bearbeitet, solche gleicher Priorität von links nach 
rechts. Geklammerte Ausdrücke werden nach dieser Regel von 
innen nach außen berechnet. 

Bei Ausdrücken, die mit den Junktoren «UND» und «OR» gebil¬ 
det werden, ist jedoch eine Besonderheit zu beachten. Da ein Satz, 
der aus zwei (oder mehreren) Teilsätzen mit «AND» gebildet wird, 
auf jeden Fall «FALSE» ergibt, wenn ein Teilsatz «FALSE» ist, wird 
beim ersten Auftreten von «FALSE» hier die Berechnung abgebro¬ 
chen (und für die übrigen Teilsätze nicht mehr ausgeführt). Ent¬ 
sprechendes gilt für «OR», nur daß hier ein erstes Auftreten von 
«TRUE» zum Abbrach führt. Modula-2 führt also überflüssige 
Berechnungen nicht durch! 
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Beispiel: 

VAR IstlmBereich : BOOLEAN; 

Zahl : CARDINAL; 

IstlmBereich:=(Zahl>=5) AND (Zahl<=10); 

Hat die Variable Zahl z. B. den Wert 0, so wird die Operation 
«(Zahl<=10)» nicht durchgeführt, da schon der Vergleich 
«(Zahl>=5)» den Wert «FALSE» ergibt. 


MODULE JunktorenLogik; 

FROM BooleanlnOut IMPORT ReadBoolean, WriteBoolean; 

FROM InOut IMPORT WriteString, WriteLn; 

VAR Satzl, Satz2 : BOOLEAN; 

BEGIN 

WriteString("Demonstration der Junktoren"); WriteLn; 

WriteString( "-"); WriteLn; 

WriteLn; 

WriteString("Geben Sie bitte zwei Wahrheitswerte ein:"); WriteLn; 
ReadBoolean(Satzl); WriteLn; 

ReadBoolean(Satz2); WriteLn; 

WriteLn; 

WriteString("Satzl: "); WriteBoolean(Satzl); WriteLn; 

WriteString("Satz2: "); WriteBoolean(Satz2); WriteLn; 

WriteLn; 

WriteStringC'NOT Satzl <-> "); 

WriteBoolean(NOT Satzl); WriteLn; 

WriteStringC'NOT Satz2 <-> "); 

WriteBoolean(NOT Satz2); WriteLn; 

WriteString("Satzl AND Satz2 <-> "); 

WriteBoolean(Satzl AND Satz2); WriteLn; 

WriteString("Satzl OR Satz2 <-> "); 

WriteBoolean(Satzl OR Satz2); WriteLn 
END JunktorenLogik. 


Probelauf: 

Demonstration der Junktoren 


Geben Sie bitte zwei Wahrheitswerte ein: 

FALSE 

TRUE 

Satzl: FALSE 
Satz2: TRUE 

NOT Satzl <-> TRUE 

NOT Satz2 <-> FALSE 

Satzl AND Satz2 <-> FALSE 

Satzl OR Satz2 <-> TRUE 
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3.7.6 Komplexe Sätze 

Mit den Junktoren können weitere logische Verknüpfungen reali¬ 
siert werden. Als erste wäre hier «entweder ... oder» zu nennen. 
Umgangssprachlich könnte man die Beziehung «Entweder Satzl 
oder Satz2» so darstellen: «Satzl oder Satz2, aber (= und) nicht 
Satzl und Satz2». Übertragen in die Junktoren-Sprache ergibt sich: 

(Satzl OR Satz2) AND NOTfSatzl AND Satz2) 

Wir wollen die Wahrheitswerte dieses Satzes in einer Tabelle 
darstellen: 


Satzl 

Satz2 

(Satzl OR Satz2) 

NOTfSatzl AND 
Satz2) 

... AND 

FALSE 

FALSE 

FALSE 

TRUE 

FALSE 

FALSE 

TRUE 

TRUE 

TRUE 

TRUE 

TRUE 

FALSE 

TRUE 

TRUE 

TRUE 

TRUE 

TRUE 

TRUE 

FALSE 

FALSE 


Wir sehen, daß die zusammengesetzte Aussage immer nur dann 
«TRUE» wird, wenn genau eine der beiden Teilaussagen «TRUE» 
ist. Weiterhin sehen wir, daß immer dann, wenn «Satzl» denselben 
Wert wie «Satz2» hat, wenn also «Satzl=Satz2» ist, das Ergebnis 
der Gesamtaussage «FALSE» ist. Demnach können wir die «entwe¬ 
der ... oder»-Beziehung wesentlich einfacher ausdrücken: «Satzl 
<>Satz2». 

Haben zwei boolesche Ausdrücke dieselbe Wahrheitstabelle, so 
sagt man, daß die Ausdrücke «logisch äquivalent» (gleichbedeu¬ 
tend) sind. Für die Programmierarbeit ist wichtig, daß jeder Aus¬ 
druck durch einen logisch äquivalenten Ausdruck ersetzt werden 
kann. Oft kann man einen komplizierten Ausdruck durch einen 
wesentlich einfacheren ersetzen, was einerseits zu einer schnelle¬ 
ren Programmausführung führt, andererseits die Programme klarer 
und leichter nachvollziehbar macht. 

Hier nun eine Liste der wichtigsten Äquivalenzen (A und B sind 
boolesche Ausdrücke): 
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Ausdruck 

äquival. Ausdruck 

Bedeutung 

(AORB) AND NOT 

AoB (oder A # B) 

entweder A oder 

(A AND B) 


B 

NOT A OR B 

A<=B 

A impliziert B, 
wenn A, dann B 

(NOTA ORB) AND 

A=B 

A äquivalent B, 

(NOT BORA) 


A genau dann, 
wenn B 

NOT (A AND B) 

NOT A OR NOT B 

nicht (A und B) 
'NAND' 

NOT (A ORB) 

NOTAANDNOT B 

nicht (A oder B) 
'NOR' 


Die letzten beiden Formeln (Gesetze von de Morgan) sind beson¬ 
ders interessant. Sie erlauben die Transformation von «AND» in 
«OR» und umgekehrt. Im Zusammenhang mit dem verkürzten 
Abarbeiten von Ausdrücken kann hier der fortgeschrittene Pro¬ 
grammierer optimale boolesche Ausdrücke erstellen. Ein kleines 
Programm soll uns die Gleichwertigkeit der Ausdrücke demon¬ 
strieren. 


MODULE DeMorgan; 

FROM BooleanlnOut IMPORT ReadBoolean, WriteBoolean; 

FROM InOut IMPORT WriteString, WriteLn; 

VAR Satzl, Satz2 : BOOLEAN; 

BEGIN 

WriteString("Demonstration der Gesetze von de Morgan"); WriteLn; 

WriteString( "-"); WriteLn; 

WriteLn; 

WriteString("Geben Sie bitte zwei Wahrheitswerte ein:"); WriteLn; 
ReadBoolean(Satzl); WriteLn; 

ReadBoolean(Satz2); WriteLn; 

WriteLn; 

WriteString("Satzl: "); WriteBoolean(Satzl); WriteLn; 

WriteString("Satz2: "); WriteBoolean(Satz2); WriteLn; 

WriteLn; 

WriteString("NOT (Satzl AND Satz2) <-> "); 

WriteBoolean(NOT (Satzl AND Satz2)); WriteLn; 

WriteString("NOT Satzl OR NOT Satz2 <-> "); 

WriteBoolean(NOT Satzl OR NOT Satz2); WriteLn 
END DeMorgan. 


Probelauf: 

Demonstration der Gesetze von de Morgan 


Geben Sie bitte zwei Wahrheitswerte ein: 
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TRUE 

FALSE 

Satzl: TRUE 
Satz2: FALSE 

NOT (Satz 1 AND Satz2) <-> TRUE 
NOT Satzl OR NOT Satz2 <-> TRUE 


3.7.7 Logische Transformationen 

Abschließend wollen wir noch einen Blick auf die wichtigsten 
Transformationen von Vergleichen werfen. Dabei sind x und y 
Ausdrücke von einem geordneten Typ (CARDINAL, INTEGER, 
CHAR, BOOLEAN und REAL). 

Gleichheit und Ungleichheit: 


X = y 

<-> 

NOT | 

! x <> y 

x <> y 

<-> 

NOT | 

! x = y) 

Kleiner und größer: 


x < y 

<-> 

NOT | 

x >= y 

x > y 

<-> 

NOT ( 

x <= y 

x <= y 

<-> 

NOT | 

x>y) 

x >= y 

<-> 

NOT ( 

x<y) 


Regel: Verwenden Sie immer den einfachsten logischen Ausdruck, 
beispielsweise anstelle von «NOT (x > y)» den gleichwertigen Satz 
«x <= y». 


Hinweis: In Modula-2 sind folgende Abkürzungen erlaubt: 

~ für NOT 
& für AND 


Aufgaben: 

1. Was bewirkt der Prozeduraufruf 

'WriteßooleanfTRUE AND NOT (FALSE OR (TRUE AND NOT 
FALSE)))' 

2. Vereinfachen Sie die Ausdrücke: 
a) (x<y) OR (x=y) 
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b) NOT (NOT(a<b) AND (c>dj) 

b) NOTjp AND NOT q) (p und q vom Typ BOOLEAN) 

3.8 Fließkommazahlen: REAL 

Als letzten Grundtyp stellt Modula-2 die sog. Fließkommazahlen 
zur Verfügung. Es handelt sich dabei um Dezimalbrüche, die in der 
wissenschaftlichen Notation mit Mantisse und Exponent geschrie¬ 
ben werden (wie bei einem Taschenrechner). Anstelle des bei uns 
gebräuchlichen Kommas steht allerdings der (englische) Dezimal¬ 
punkt. 

Die Syntax von REAL-Zahlen: 

REAL-Zahl: :=Mantisse[Exponent). 

Mantisse ::=["+" ]Ziff ernf olge "." [Zif f emf olge]. 

Ziffernfolge::=Ziff er{Ziff er}. 

Ziffer::="0 "|" 1 "|"2"|"3 "|"4 "f" 5 "|" 6 "|" 7 " 

Exponent::="E" [- " ]Zif fernfolge. 

Beispiele für REAL-Zahlen: 

1.0 -3.28 +25.E-9 1.24E30 

Der Exponent gibt an, um wie viele Stellen der Dezimalpunkt 
verschoben wird (fehlende Stellen werden mit Nullen aufgefüllt). 

3.5E4 = 35000 

3.5E-4 = 0.00035 

1.0E6 = 1000000 

1.0E-10 = 0.0000000001 

Hinweis: Der Dezimalpunkt muß grundsätzlich angegeben wer¬ 
den, auch wenn rechts davon keine Ziffer mehr folgt. 

Für die Ein- und Ausgabe von Daten des Typs REAL gibt es ein 
eigenes Bibliotheksmodul namens «ReallnOut». Es stellt die Proze¬ 
duren «ReadReal» und «WriteReal» zur Verfügung. Mit 
«ReadReal» wird eine REAL-Variable eingelesen, mit «WriteReal» 
wird ein REAL-Ausdruck ausgegeben. Bei der Eingabe kann der 
Dezimalpunkt weggelassen werden. Wie bei «WriteCard» und 
«Writelnt» muß bei «WriteReal» mit einem zweiten Parameter die 


"g""9" 
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Feldbreite angegeben werden, innerhalb der die REAL-Zahl ausge¬ 
geben wird. Mit «WriteReal» wird eine REAL-Zahl immer in der 
normierten Form ausgegeben. Das bedeutet, daß der Absolutbetrag 
der Mantisse immer zwischen 1 (eingeschlossen) und 10 (ausge¬ 
schlossen) liegt. Einzige Ausnahme ist die Zahl 0. 


Beispiele: 

Eingabe (ReadReal(x)) 

0 

1 

10 

100 

0.0005 


Ausgabe (WriteReal(x,20)) 

0.00000000000000E0 

1.00000000000000E0 

1.00000000000000E1 

1.00000000000000E2 

5.00000000000000E-4 


Diese Ausgabeform ist nicht immer befriedigend. Deshalb stellen 
viele Modula-2-Implementationen noch weitere Ausgabeprozedu¬ 
ren zur Verfügung. Wir werden selbst eine solche Prozedur er¬ 
stellen. 

Als Beispiel wollen wir die Volumenberechnung eines rechtecki¬ 
gen Kastens anhand dessen Länge, Breite und Höhe durchführen: 

M0DULE Volumen; 

FR0M ReallnOut IMPORT ReadReal, WriteReal; 

FROM InOut IMPORT WriteLn, WriteString; 

VAR Laenge, Breite, Hoehe , Volumen : REAL; 

BEGIN 

WriteString("Volumen eines rechteckigen Kastens"); WriteLn; 

WriteStringC"-"); WriteLn; 

WriteLn; 

WriteStringC"Länge (in cm): "); ReadReal(Laenge); WriteLn; 
WriteStringC"Breite (in cm): "); ReadReal(Breite); WriteLn; 
WriteStringC"Höhe (in cm): "); ReadReal(Hoehe); WriteLn; 
WriteLn; 

WriteStringC"Das Volumen des Kastens (in cm~3): "); 

Volumen: =Laenge*>Br eitCHoehe; 

WriteReal(Volumen,15); WriteLn 
END Volumen. 


Probelauf: 

Volumen eines rechteckigen Kastens 


Länge (in cm): 225 

Breite (in cm): 22.8 

Höhe (in cm): 18.3 


Das Volumen des Kastens (in cm A 3): 9.387899999999998E4 
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Aufgaben: 

1. Schreiben Sie die Syntaxdiagramme in EBNF-Notation für CAR¬ 
DINAL- und INTEGER-Zahlen. 

2. Schreiben Sie ein Programm, das den Umfang eines rechtwinke¬ 
ligen Rasenstücks (Länge, Breite) berechnet. Achten Sie auf 
vernünftige Ein- und Ausgabeanweisungen. 


3.9 Zusammenfassung der Grundtypen 

Die Typen «CARDINAL», «INTEGER», «CHAR» und «BOO- 
LEAN» haben eins gemeinsam: Sie sind aufzählbar. Das heißt, daß 
zu jeder gegebenen Größe aus einer dieser Typen (falls vorhanden) 
der Nachfolger und der Vorgänger bestimmt werden können. Oder 
anders ausgedrückt: Zwischen zwei Werten eines dieser Typen 
liegt eine Anzahl von anderen Werten, und diese Anzahl ist völlig 
unabhängig von der jeweiligen Rechenanlage. So liegen beispiels¬ 
weise zwischen den CARDINAL-Zahlen 1 und 4 auf jedem Rech¬ 
ner dieser Welt die Zahlen 2 und 3. Das ist bei den REAL-Zahlen 
nicht der Fall! Die Anzahl der REAL-Zahlen zwischen 0.5 und 0.6 
kann ohne Kenntnis der jeweiligen Implementierung nicht beant¬ 
wortet werden. 

Die Unterscheidung in aufzählbare und nichtaufzählbare Typen 
ist sehr wichtig, da verschiedene Anweisungen ausschließlich mit 
aufzählbaren Typen arbeiten. Sie werden häufig «einfache Typen» 
(engl, simple types) oder «skalare Typen» genannt. Jedem Wert 
eines aufzählbaren Typs entspricht genau eine ganze Zahl (Ordinal¬ 
wert). Dieser Wert kann mit der Standardfunktion «ORD» 
bestimmt werden, die wir bereits im Zusammenhang mit dem 
Datentyp «CHAR» kennengelernt haben. 

Hier folgt eine Liste aller Standardprozeduren und -funktionen, 
die mit allen aufzählbaren Typen einsetzbar sind: 


Name 

Art 

Bedeutung 

Beispiel 

ORD(x) 

Funktion 

Ordinalwert von x 

ORD('A') (= 65) 
ORD(FALSE) (= 0) 

INC(x) 

Prozedur 

Nachfolger von x 

x:=10; INC(x); 

(entspricht x: =x+1) 

INC(x,n) 

Prozedur 

n-t Nachfolger von x 

x:=10; INC(x,5) ; 

(entspricht x: =x+15) 
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DEC(x) Prozedur Vorgänger von x x:=10 ; DEC(x) ; 

(entspricht x:=x-l) 

DEC(x,n) Prozedur n-te Vorgänger von x x:=10 ; DEC(x,5) ; 

(entspricht x:=x-5) 

VAL(T,x) Funktion Wert des Typs T mit VAL(BOOLEAN ; l) 
Ordnungszahl x (= TRUE, da 

ORD(TRUE)=l) 

Für alle Grundtypen gibt es die Funktionen «MIN» und «MAX», 
die als Argument einen Typ-Namen benötigen und den kleinsten 
bzw. größten Wert dieses Typs als Ergebnis liefern. 

MIN (CARDINAL) = 0 
MAX( CARDINAL) = 65535 
MIN(BOOLEAN) = FALSE usw. 

Mit folgendem Programm können Sie den Bereich der REAL-Zah- 
len ihres Modula-2-Systems bestimmen. 


MODULE RealBereich; 

FROM ReallnOut IMPORT WriteReal; 

FROM InOut IMPORT WriteLn, WriteString; 
BEGIN 

WriteString("Die kleinste REAL-Zahl: "); 
WriteReal(MIN(REAL),20); WriteLn; 
WriteString!"Die größte REAL-Zahl: "); 
WriteReal(MAX(REAL),20); WriteLn 
END RealBereich. 
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Bisher haben wir zwei Anweisungen kennengelemt: Prozedurauf¬ 
ruf und Zuweisung. In diesem Kapitel wenden wir uns nun den sog. 
«strukturierten» Anweisungen zu. Sie heißen deshalb so, weil ihre 
einzelnen Komponenten wiederum Anweisungen sind. 

Anweisung::=[Prozeduraufruf | Zuweisung | IF-Anweisung | REPEAT-Anweisung j 
WHILE-Anweisung | FOR-Anweisung | LOOP-Anweisung | 
CASE-Anweisung | RETURN-Anweisung | WITH-Anweisung]. 

Das sind alle Anweisungen in Modula-2. Interessant sind bei dieser 
Definition die eckigen Klammern. Sie besagen, daß eine Anwei¬ 
sung auch aus keinen Zeichen bestehen kann. Es handelt sich dann 
um die «leere Anweisung». Vielleicht haben Sie bei Ihren Versu¬ 
chen schon einmal vor dem abschließenden END ein Semikolon 
geschrieben. Trotzdem hat der Compiler daran nicht Anstoß 
genommen. Es wurde ganz einfach noch eine leere Anweisung 
angenommen und damit die Syntaxregel erfüllt. Die Zulassung der 
leeren Anweisung ist eine Erleichterung für den Programmierer. 

Bis auf die RETURN-Anweisung, die erst bei den Prozeduren 
behandelt wird, und die WITH-Anweisung, die nur zusammen mit 
einem neuen Datentyp Verwendung findet, werden die Modula-2- 
Anweisungen jetzt systematisch vorgestellt. 


4.1 IF-Anweisung 

Häufig kommt es vor, daß ein Programm anders Weiterarbeiten 
muß, je nachdem, ob eine Berechnung ein bestimmtes Resultat 
erbrachte oder nicht. In diesem Fall kommt die IF-Anweisung zum 
Einsatz. Ihre allgemeine Form ist: 

IF-Anweisung::="IF" BoolescherAusdruck 
"THEN" Anweisungssequenz 

{"ELSIF" BoolescherAusdruck "THEN" Anweisungssequenz} 
["ELSE" AnweisungsSequenz] 

"END". 




54 Anweisungen 


Die booleschen Ausdrücke wurden bereits ausgiebig behandelt. 
Den Begriff «Anweisungssequenz» wollen wir uns nochmals in 
Erinnerung rufen: 

Anweisungssequenz: :=Anweisung {"/' Anweisung}. 

Hinweis: Eine Anweisungssequenz kann auch nur aus einer leeren 
Anweisung bestehen, also selbst leer sein. 


4.1.1 Die Grundform 

Betrachten wir zunächst den einfachsten Fall einer IF-Anweisung ; 
bei dem alle optionalen Teile weggelassen werden: 

IF BoolescherAusdruck THEN Anweisungssequenz END 


Die Arbeitsweise ist schnell erklärt. Die auf «THEN» folgende 
Anweisungssequenz wird nur dann abgearbeitet, wenn der boole¬ 
sche Ausdruck den Wert «TRUE» erhält, andernfalls nicht. 

MODULE EndeTest; 

FROM InOut IMPORT Read, WriteString, WriteLn; 

VAR Antwort : CHAR; 

BEGIN 

WriteLn; 

WriteString("Wenn Sie das Programm abbrechen wollen,"); WriteLn; 
WriteString("geben Sie ’J’ ein: "); 

Read(Antwort); WriteLn; 

IF Antwort="J" 

THEN WriteString( "Abbruc)i! " ); WriteLn; HALT 
END; 

WriteString("Das Programm wird fortgesetzt.") 

END EndeTest. 


Probelauf: 

Wenn Sie das Programm abbrechen wollen, 

geben Sie '}’ ein: J 

Abbmch! 

Wenn Sie das Programm abbrechen wollen, 

geben Sie ’J’ ein: x 

Das Programm wird fortgesetzt. 

In diesem Beispiel findet eine neue Standardprozedur Verwendung: 
«HALT». Sie macht genau, was ihr Name aussagt. Das Programm 
wird an dieser Stelle abgebrochen. 
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Zur eingesetzten IF-Anweisung gibt es folgendes zu bemerken: 
Bei der Quelltext-Formatierung ist es günstig, die reservierten 
Wörter (IF, THEN, END) untereinander zu schreiben. Dadurch 
wird klar, was alles zu dieser Anweisung gehört. 

Wenn die Anweisungssequenz sehr umfangreich ist und (oder) 
wiederum strukturierte Anweisungen enthält, ist bei dem abschlie¬ 
ßenden «END» oft nicht leicht zu durchschauen, auf welche 
Anweisung es sich bezieht. Aus diesem Grund wird hier gern die 
Quelle des «END» in Form eines kurzen Kommentars angegeben: 
END (* IF *) 

Abfragen der obigen Art kommen in der Programmierpraxis sehr 
oft vor, denn damit ermöglicht man es dem Anwender, mit einfa¬ 
chen Tastendrücken ein Programm zu steuern. Meist soll jedoch 
das Programm auch die entsprechenden Kleinbuchstaben akzeptie¬ 
ren. Dazu muß nur der boolesche Ausdruck umgewandelt werden: 

IF (Antwort="J") OR (Antwort-")") THEN ... 
oder 

IF CAP(Antwort)="J" THEN ... 

4.1.2 Der ELSE-Zweig 

Auch die Arbeitsweise der erweiterten IF-Anweisung ist einleuch¬ 
tend: 

IF BoolescherAusdruck 
THEN Anweisungssequenz 1 
ELSE Anweisungssequenz2 
END 

Ergibt der boolesche Ausdruck den Wert «TRUE», so wird Anwei¬ 
sungssequenz 1 ausgeführt, andernfalls Anweisungssequenz2. In 
einem Beispiel soll geprüft werden, ob eine eingegebene INTEGER- 
Zahl positiv (>=0) oder negativ ist. 


MODULE PositivNegativ; 

FROM InOut IMPORT Readlnt, WriteString, WriteLn; 

VAR Zahl : INTEGER; 

BEGIN 

WriteLn; 

WriteString("Bitte geben Sie eine ganze Zahl ein: "); 
ReadInt(Zahl); WriteLn; 
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IF Zahl>=0 

THEN WriteString("Ihre Zahl ist positiv.") 
ELSE WriteString("Ihre Zahl ist negativ.") 
END; 

WriteLn 

END PositivNegativ. 


Probelauf: 

Bitte geben Sie eine ganze Zahl ein: 125 
Ihre Zahl ist positiv. 

Bitte geben Sie eine ganze Zahl ein: -16 
Ihre Zahl ist negativ. 

Da die Anweisungssequenz 1 dann ausgeführt wird, wenn der boo¬ 
lesche Ausdruck «TRUE» ergibt, die Anweisungssequenz2 dann, 
wenn das Resultat «FALSE» ist, kann diese Form der bedingten 
Anweisung ohne Einfluß auf das Programm umgestellt werden: 

IF NOT Boolescher Ausdruck 
THEN Anweisungssequenz2 
ELSE Anweisungssequenz 1 
END 

In unserem Beispiel würde diese Transformation zu folgender 
Anweisung führen: 

IF ZahlcO 

THEN WriteString)"Ihre Zahl ist negativ.") 

ELSE WriteStringf"Ihre Zahl ist positiv.") 

END 

Dieser Sachverhalt kann manchmal ausgenutzt werden, um die 
Bedingung (boolescher Ausdruck) einfacher zu gestalten. Wenn Sie 
etwas fortgeschrittener sind, sollten Sie sich stets der logischen 
Transformationsregeln erinnern. 
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4.1.3 Alternativen mit ELSIF 

Stehen mehr als zwei Alternativen zur Auswahl, so bedient man 
sich der «ELSIF»-Zweige: 

IF Boolescher Ausdruck 1 
THEN Anweisungssequenz 1 
ELSIF BoolescherAusdruck2 
THEN Anweisungssequenz2 
ELSIF BoolescherAusdruclc3 
THEN Anweisungssequenz3 

ELSE AlternativeAnweisungssequenz 
END 


Die Ausführung geschieht folgendermaßen: Erst wird der «Boole¬ 
sche Ausdruck 1» berechnet. Ist sein Wert «TRUE», so wird 
«Anweisungssequenz 1» abgearbeitet. Andernfalls wird der «Boole¬ 
sche Ausdrucl<2» berechnet. Ist dessen Ergebnis «TRUE», so wird 
«Anweisungssequenz2» ausgeführt. Andernfalls wird das Verfah¬ 
ren für den «BooleschenAusdruclc3» wiederholt usw. Nur wenn 
alle booleschen Ausdrücke den Wert «FALSE» ergeben, wird die 
Anweisungssequenz nach «ELSE» abgearbeitet. 

In einem Beispiel soll das Vorzeichen (Signum) einer Fließkom¬ 
mazahl bestimmt werden. Es gilt 


Signum(x) = +1 falls x>0.0 
-1 falls x<0.0 
0 falls x=0.0 


MODULE Signum; 

FROM InOut IMPORT WriteString, WriteLn; 

FROM ReallnOut IMPORT ReadReal; 

VAR TestZahl : REAL; 

BEGIN 

WriteString!"Bestimmung des Signums einer reellen Zahl x"); WriteLn; 

WriteString! "-"); WriteLn; 

WriteLn; WriteString!"x - "); 

ReadReal!TestZahl); WriteLn; 

WriteString!"Das Signum ist "); 

IF TestZahl>0.0 
THEN WriteString!"+1") 

ELSIF TestZahl<0.0 
THEN WriteString!"-1") 

ELSE WriteString!"0") 

END; (*> IF *) 

WriteLn 
END Signum. 
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Probelauf: 

Bestimmung des Signums einer reellen Zahl x 


x = -124.25 
Das Signum ist -1 

Hinweis: Der Einsatz vieler ELSIF-Zweige kann zu unübersichtli¬ 
chen Programmen führen. Sie sollten hier ganz besonders auf eine 
saubere optische Gliederung achten! 

Betrachten wir noch einmal die Syntax der IF-Anweisung. Hier 
kommen Anweisungssequenzen vor, also durch Semikolon 
getrennte Folgen von Anweisungen. Da auch die IF-Anweisung 
eine Anweisung ist, kann sie hier überall wieder eingesetzt werden. 
Man sagt auch: Die strukturierten Anweisungen sind rekursiv 
definiert. Der Begriff der Rekursion wird zwar erst später behan¬ 
delt. Eine wichtige Konsequenz kann aber schon hier angeführt 
werden: IF-An Weisungen können beliebig verschachtelt werden. 

Aufgaben: 

1. Warum ist eine Konstruktion mit «ELSIF» einer mehrfach ver¬ 
schachtelten IF-Anweisung vorzuziehen? 

2. Schreiben Sie ein Programm, das Groß- in Kleinbuchstaben 
um wandelt und umgekehrt. 


4.2 Die REPEAT-Anweisung 

Modula-2 bietet vier verschiedene Wiederholungsanweisungen. 
Die einfachste Form lautet etwa folgendermaßen: Wiederhole eine 
Anweisungssequenz so lange, bis ein boolescher Ausdruck den 
Wert «TRUE» erhält. 

REPEAT-Anweisung: :="REPEAT„ Anweisungssequenz "UNTIL" 
BoolescherAusdruck. 

Der boolesche Ausdruck wird immer erst berechnet, wenn die 
Anweisungssequenz ausgeführt wurde. Demnach wird die Anwei¬ 
sungssequenz mindestens einmal abgearbeitet. Man spricht des¬ 
halb auch von einer «nicht-abweisenden Schleife». 
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Eine wichtige Anwendung als Beispiel. Der Anwender soll eine 
Frage mit «J» (für Ja) oder «N» (für Nein) beantworten. Dabei soll 
zwischen Groß- und Kleinbuchstaben nicht unterschieden werden. 
Alle anderen Eingaben sollen mit einer erneuten Anforderung 
zurückgewiesen werden. 


MODÜLE JaNeinl; 

FROM InOut IMPORT Read, WriteString, WriteLn; 

VAR Antwort : CHAR; 

BEGIN 

WriteLn; 

WriteString("Soll das Programm fortgesetzt werden (J/N) ? "); 
REPEAT 

Read(Antwort); 

Antwort:=CAP(Antwort); ("In Großbuchstaben umwandeln *) 
WriteLn; 

IF (Antworto"J" ) AND (Antwort< >"N" ) 

THEN WriteString("Bitte nur ’J’ oder ’N’ ? ") 

END (« IF ") 

DNTIL (Antwort="J") OR (Antwort="N"); 

IF Antwort=»"J" 

THEN WriteString("Das Programm wird fortgesetzt."); WriteLn 
ELSE WriteString("Das Programm wird abgebrochen."); WriteLn 
END (" IF ") 

END JaNeinl. 


Probelauf: 

Soll das Programm fortgesetzt werden (J/N) ? x 

Bitte nur oder 'N' ? m 

Bitte nur ’J' oder 'N' ? n 

Das Programm wird abgebrochen. 

Eine andere Möglichkeit der Problemlösung besteht darin, die 
Zeichen unsichtbar einzulesen, bis eine zulässige Taste gedrückt 
wurde. Eine Prozedur, die das bewerkstelligt, ist unter dem Namen 
«BusyRead» im Bibliotheksmodul «Terminal» zu finden. Diese 
Prozedur liefert das Zeichen mit dem ASCII-Wert 0, wenn keine 
Taste gedrückt wurde, ansonsten das jeweilige Zeichen. 

Verwendet man «BusyRead», so muß man das Programm so 
lange warten lassen, bis eine Taste gedrückt wurde. Auch das 
geschieht mit einer (verschachtelten) REPEAT-Anweisung: 

REPEAT BusyRead(Antwort) UNTIL Antwort>0C 

Hier nun eine zweite Version der Ja/Nein-Abfrage. Diesmal werden 
unzulässige Eingaben mit einem Piepton (Write(7C)) quittiert. Erst 
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bei «J» oder «N» erfolgt ein Echo (Ausgabe des getippten Buchsta¬ 
bens) auf dem Bildschirm. 

MODULE JaNein2; 

FROM InOut IMPORT Write, WriteString, WriteLn; 

FROM Terminal IMPORT BusyRead; 

VAR Antwort : CHAR; 

BEGIN 

WriteLn; 

WriteString("Soll das Programm fortgesetzt werden (J/N) ? 
REPEAT 

REPEAT BusyRead(Antwort) UNTIL Antwort>0C; 

Antwort:=CAP(Antwort); ("In Großbuchstaben umwandeln ") 

IF (AntwortO"J") AND (Antwort< >"N" ) 

THEN Write(7C) (» Läßt den Rechner piepsen ") 

END (* IF ») 

UNTIL (Antwort“"J") OR (Antwort“"N"); 

Write(Antwort); WriteLn; 

IF Antwort“"J" 

THEN WriteString("Das Programm wird fortgesetzt."); WriteLn 
ELSE WriteString("Das Programm wird abgebrochen."); WriteLn 
END (« IF «) 

END JaNein2. 

Verzichtet man auf das Piepen bei unzulässigen Eingaben, kann das 
Programm noch einfacher gestaltet werden: 

MODULE JaNeinß; 

FROM InOut IMPORT Write, WriteString, WriteLn; 

FROM Terminal IMPORT BusyRead; 

VAR Antwort : CHAR; 

BEGIN 

WriteLn; 

WriteString("Soll das Programm fortgesetzt werden (J/N) ? "); 
REPEAT 

BusyRead(Antwort) 

Antwort:=CAP(Antwort); (* In Großbuchstaben umwandeln *) 

UNTIL (Antwort“"J") OR (Antwort="N"); 

Write(Antwort); WriteLn; 

IF Antwort="J” 

THEN WriteString("Das Programm wird fortgesetzt."); WriteLn 
ELSE WriteString("Das Programm wird abgebrochen."); WriteLn 
END (" IF ") 

END JaNeinß. 


Unser zweites Beispiel stammt aus der Mathematik. Wir wollen 
die Quadratwurzel einer eingegebenen (REAL-)Zahl bestimmen. 
Dßzu wählen wir die einfache (und uneffektive) Methode der Inter¬ 
vallhalbierung. Das Verfahren funktioniert folgendermaßen: 

Die Quadratwurzel einer Zahl liegt auf jeden Fall zwischen 0.0 
und dieser Zahl selbst. Also setzen wir die Untergrenze des Inter¬ 
valls auf 0.0 und die Obergrenze auf die eingegebene Zahl. Dann 
wird die Mitte des Intervalls ((Obergrenze + Untergrenze)/2) be¬ 
stimmt. 
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Ist das Quadrat (Mitte * Mitte) größer als die eingegebene Zahl, 
so liegt die gesuchte Wurzel in der unteren Intervallhälfte, und wir 
setzen einfach die Obergrenze auf die Mitte. Andernfalls befindet 
sich die Wurzel in der oberen Hälfte, und wir legen deshalb die 
Untergrenze auf die Mitte. 

Dieses Verfahren der Intervall-Halbierung wiederholen wir so 
lange, bis sich das Quadrat der eingegebenen Zahl nur noch um 
einen sehr kleinen Betrag unterscheidet (ABS(Mitte * Mitte - 
Eingabe)< KleinerBetrag). Die Mitte ist dann die gesuchte Wurzel 
(in Annäherung). 


MODULE Wurzelt; 

FROM InOut IMPORT WriteString, WriteLn; 

FROM ReallnOut IMPORT ReadReal, WriteReal; 

VAR Eingabe, Obergrenze, Uptergrenze, Mitte : REAL; 

BEGIN 

WriteLn; 

WriteString("Bestimmung der Quadratwurzel einer Zahl"); WriteLn; 

WriteString!"-"); WriteLn; 

WriteLn; 

WriteString("Ihre Zahl: "); ReadReal(Eingabe); WriteLn; 
Obergrenze:“Eingabe; Untergrenze:=0.0; 

REPEAT 

Mitte:=(Obergrenze+Untergrenze)/2.0; 

IF Mitte " Mitte > Eingabe 

THEN Obergrenze:=Mitte (* Wurzel liegt zwischen Untergrenze 

und Mitte *) 

ELSE Untergrenze:“Mitte (* Wurzel liegt zwischen Mitte 

und Obergrenze ") 

END (* IF *) 

UNTIL ABS(Mitte"Mitte-Eingabe)<0.000001; 

WriteString!"Die Wurzel ist "); 

WriteReal(Mitte,20); 

WriteLn 
END Wurzell. 


Probelauf: 

Bestimmung der Quadratwurzel einer Zahl 


Ihre Zahl: 2 

Die Wurzel ist 1.4142284737764E0 

Dieses Programm funktioniert zwar, hat aber noch einige Schön¬ 
heitsfehler: 

□ Wenn keine gültige REAL-Zahl eingegeben wurde, ist die Varia¬ 
ble «Eingabe» nicht definiert. Das Ergebnis ist unsinnig. 
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□ Falls der Anwender eine negative Zahl eingibt, funktioniert das 
Verfahren nicht - es kommt zu einer Endlosschleife (d. h., der 
boolesche Ausdruck wird niemals «TRUE»). 

□ Es ist sehr ungünstig, wenn im Anweisungsteil eines Pro¬ 
gramms Zahlenkonstante auftreten. Solche Programme sind 
immer schwer zu warten. Bei einer Änderung (um z. B. auf eine 
höhere Genauigkeit umzustellen) muß der gesamte Programm¬ 
text, der mitunter sehr groß sein kann, nach dem Vorkommen 
solcher Zahlenkonstanten untersucht werden. 

Doch sind diese Fehler leicht auszumerzen. Das Modul «Realln- 
Out» exportiert die boolesche Variable «Done». Diese gibt im 
Anschluß an eine Zahleneingabe Aufschluß darüber, ob die Opera¬ 
tion erfolgreich war (TRUE) oder nicht (FALSE). Wir können also 
die Eingabe so lange wiederholen, bis uns die Variable «Done» die 
Gültigkeit der Eingabe anzeigt. 

Negative Zahlen können wir selbst sehr leicht abfangen. Wir 
müssen uns nur überlegen, wie unser Programm reagieren soll. 
Eigentlich sind Quadratwurzeln aus negativen Zahlen im Bereich 
der reellen Zahlen nicht darstellbar. Wenn wir aber in einem 
solchen Fall die Wurzel aus dem Absolutbetrag der Zahl ziehen und 
das Ergebnis mit «i» ( Wurzel aus -1) multiplizieren, erhalten wir 
als Ergebnis eine komplexe Zahl. Das Programm muß sich also nur 
merken, ob die Zahl negativ oder positiv war. Hier bietet sich eine 
Variable «negativ» vom Typ «BOOLEAN» an, die nach einer gülti¬ 
gen Eingabe entsprechend gesetzt wird: 

IF EingabecO.O THEN negativ: =TRUE ELSE negativ: =FALSE 
END 

Diese Anweisung kann jedoch mit einer Zuweisung wesentlich 
effektiver ausgedrückt werden: 

negativ:=Eingabe<0.0 

Um den Programmtext von Konstanten freizuhalten, besteht in 
Modula-2 die Möglichkeit, diese - mit einem Namen versehen - an 
den Anfang des Programms (genauer: in den Deklarationsteil) zu 
stellen. Man spricht hier von einer Konstanten-Vereinbarung. Die 
Syntax ist: 

Konstanten-Vereinbarung::="CONST" {Name "=" Konstanter- 
Ausdruck 
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Dabei darf der Ausdruck selbst nur Konstante (auch bereits verein¬ 
barte) enthalten, nicht jedoch Variable oder Funktionen. Normaler¬ 
weise ist der Typ der Konstanten nach der Auswertung des Aus¬ 
drucks bestimmt. 

□ REAL-Konstante werden mit Dezimalpunkt und (bei Bedarf) mit 
Exponent geschrieben. 

□ Ganze Zahlen von MAX(INTEGER)+1 bis MAX(CARDINAL) 
werdendem Typ CARDINAL zugeordnet. 

□ Negative ganze Zahlen werden als INTEGER-Konstante inter¬ 
pretiert. 

□ Positive Konstante von 0 bis MAX(INTEGER) können sowohl in 
INTEGER- als auch in CARDINAL-Ausdrücken verwendet wer¬ 
den. 

Beispiele: 

CONST pi = 3.1415; 

Schranke - 0.000001; 

MaxZahl = 1000; 

Groesse = MaxZahl * pi ; 

Grenze = l.E-10; 

Ja = "J"; 

Wahr = TRUE; 

Der Einsatz der Konstanten-Vereinbarung bringt ausschließlich 
Vorteile: 

□ Klarheit durch «sprechende» Namen, 

□ Wartbarkeit durch einfache Änderung an einer Stelle im Pro¬ 
gramm. 


MODULE Wurzel2; 

FROM InOut IMPORT WriteString, WriteLn; 

FROM ReallnOut IMPORT ReadReal, WriteReal, Done; 

CONST Grenze = 0.000001; 

VAR Eingabe, Obergrenze, Untergrenze, Mitte : REAL; 

negativ : B00LEAN; 

BEGIN 

WriteLn; 

WriteString("Bestimmung der Quadratwurzel einer Zahl"); WriteLn; 

WriteString!"-"); WriteLn; 

WriteLn; 

REPEAT 

WriteString!"Ihre Zahl: "); ReadReal!Eingabe); WriteLn 
DNTIL Done; 
negativ:=Eingabe<0.0; 


(* Vorzeichen merken *) 
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Eingabe:=ABS(Eingabe); (* Mit Absolutwert weiterrechnen *) 

Obergrenze:»Eingabe; Untergrenze:=0.0; 

REPEAT 

Mitte:=(Obergrenze+Untergrenze)/2.0; 

IF Mitte * Mitte > Eingabe 

THEN Obergrenze:»Mitte (* Wurzel liegt zwischen Untergrenze 

und Mitte ") 

ELSE Untergrenze:»Mitte (* Wurzel liegt zwischen Mitte 

und Obergrenze *) 

END (" IF ») 

UNTIL ABS(Mitte"Mitte-Eingabe)<Grenze; 

WriteString("Die Wurzel ist "); 

WriteReal(Mitte,20); 

IF negativ THEN WriteString(" » i") END; 

WriteLn 
END Wurzel2. 


Testlauf: 

Bestimmung der Quadratwurzel einer Zahl 


Ihre Zahl: Computer sind doof! 

Ihre Zahl: Mag nicht 

Ihre Zahl: -13 

Die Wurzel ist 3.605551258912E0 * i 
Aufgaben: 

1. Auch mit CARDINAL-Zahlen können Dezimalbrüche darge¬ 
stellt werden. Man muß dabei nur wie bei der schriftlichen 
Teilung zweier Zahlen Vorgehen. Das Ergebnis von «A geteilt 
durch B»kann so ermittelt werden: 

Vorkommazahl := A DIV B ; 

Rest:=A MOD B ; 

1. Nachkommastelle := (10 * Rest) DIV B; 

Rest:=(10 * Rest) MOD B ; 

2. Nachkommastelle := (10 * Rest) DIV B ; 

Rest:=(10 * Rest) MOD B 

usw. 

Schreiben Sie ein Programm, das eine Division auf 10 Stellen 
genau durchführt. 

2. Schreiben Sie ein Programm, das eine Folge von CARDINAL- 
Zahlen einliest (durch 0 abgeschlossen) und den Durchschnitts¬ 
wert (auf zwei Stellen genau) dieser Folge ausgibt. 
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4.3 Die WHILE-Anweisung 

Wenn die Schleife abweisend sein soll, wenn also die Bedingung 
(boolescher Ausdruck) bereits am Anfang der Schleife geprüft wer¬ 
den soll, so kann das mit der REPEAT-Anweisung in Verbindung 
mit einer IF-Anweisung realisiert werden: 

IF NOT BoolescherAusdruck 
THEN REPEAT 

Anweisungssequenz 
BNTIL BoolescherAusdruck 

END 

Da dieser Fall in der Programmierpraxis sehr häufig vorkommt, 
gibt es für diese Konstruktion eine eigene Anweisung: 

WHILE-Anweisung: :="WHILE" BoolescherAusdruck "DO" 
Anweisungssequenz "END". 


Hier wird die Anweisungssequenz so lange wiederholt, wie der 
boolesche Ausdruck den Wert «TRUE» liefert. Da die erste Prüfung 
bereits vor dem ersten Durchlauf stattfindet, kann die Anweisungs¬ 
sequenz u.U. überhaupt nicht ausgeführt werden. 

Beispiel: Ein Programm soll die Fakultät einer eingegebenen CAR- 
DINAL-Zahl berechnen. Die Fakultät ist das Produkt der natürli¬ 
chen Zahlen von 1 bis zur eingegeben Zahl, also 1*2*3*...*n. 

MODULE Fakultaet; 

FROM InOut IMPORT ReadCard, WriteCard, WriteString, WriteLn, Done; 
BAR Eingabe, Fakultaet : CARDINAL; 

BEGIN 

WriteLn; 

WriteString("Fakultäts-Berechnung"); WriteLn; 

WriteString( "-"); WriteLn; 

WriteLn; 

REPEAT 

WriteString("Bitte gebeh Sie eine natürliche Zahl ein: "); 
ReadCard(Eingabe); WriteLn 
UNTIL Done; 

Fakultaet:=1; 

WHILE Eingabe>0 DO 

Fakultaet:=Fakultaet*Eingabe; 

Eingabe:=Eingabe-l 
END; (* WHILE *) 

WriteString("Die Fakultät ist: "); 

WriteCard(Fakultaet,10); 

WriteLn 
END Fakultaet. 
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Probelauf: 

Fakultäts-Berechnung 


Bitte geben Sie eine natürliche Zahl ein: 6 
Die Fakultät ist: 720 

Analysieren Sie bitte das Programm ganz genau. Die Variable 
«Done» aus dem Modul «InOut» wird erst dann «TRUE», wenn 
eine gültige CARDINAL-Zahl eingegeben wurde. Dann wird die 
Variable «Fakultaet» auf den Wert «1» gesetzt. Wurde «0» eingege¬ 
ben, so wird die Anweisungssequenz der WHILE-Anweisung nicht 
durchlaufen. Das Ergebnis ist dann «1», ein mathematisch korrek¬ 
tes Resultat. 

Spielen wir die WHILE-Anweisung einmal mit der Eingabe «5» 


durch: 

Bedingung 

Fakultät 

Eingabe 

5>0 (TRUE) 

1 

1*5 

(=5) 

5 (Beim Eintritt) 

5-1 (=4) 

4>0 (TRUE) 

5*4 

(=20) 

4-1 (=3) 

3>0 (TRUE) 

20*3 

(=60) 

3-1 (=2) 

2>0 (TRUE) 

60*2 

(=120) 

2-1 (=1) 

1>0 (TRUE) 

120*1 

(=120) 

1-1 (=0) 

0>0 (FALSE) 



(Anweisung beendet) 


In einem zweiten Beispiel wollen wir von der sog. Eingabe-Umlei¬ 
tung (engl, input-redirection) Gebrauch machen. Das Modul 
«InOut» liefert die dazu nötigen Prozeduren «Openlnput» und 
«Closeinput». «Openlnput» muß ein Zeichenlcetten-Parameter 
mitgegeben werden. Es handelt sich dabei um die Extension des 
Dateinamens, wenn diese nicht explizit bei der Abfrage angegeben 
wird. 

Der Aufruf von «OpenInput(«MOD»)» bsw. bewirkt, daß das 
Programm auf dem Bildschirm eine Meldung wie 

INPUT FROM (Eingabe von) oder 

in> (ein>) 


ausgibt. Dann wird die Eingabe eines Dateinamens erwartet. Wird 
dabei keine Extension angegeben, wird automatisch «.MOD» ange- 
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hängt. Im Anschluß daran wird versucht, diese Datei zum Lesen zu 
öffnen. Ist dieser Versuch erfolgreich, wird die Variable «Done» auf 
«TRUE» gesetzt, andernfalls auf «FALSE». Jede weitere Eingabe 
wird in der Folge aus dieser Datei geholt, wobei «Done» nach jeder 
Operation über den Erfolg Aufschluß gibt. Am Dateiende wird 
«Done» auf jeden Fall «FALSE». Nach «Closeinput» werden alle 
weiteren Eingaben wieder von der Tastatur geholt. 

Wir haben es hier zum ersten Mal mit der Bearbeitung einer 
externen Datei zu tun. Die Umleitung ist auf alle Kanäle möglich, 
die - wie die Tastatur - Daten vom Typ «CHAR» liefern. Man 
bezeichnet solche Dateien auch als «Textdateien», den Zeichen¬ 
strom, den sie liefern, als «Text». 

Das Beispielprogramm erfüllt eine einfache Aufgabe: Es zählt die 
Buchstaben, aus denen der gelieferte Text besteht (daher der 
Modulname «Count = Zählen»). Da es aber das Grundgerüst für 
viele weitere Beispiele enthält, sollten Sie es vollkommen durch¬ 
schauen. 


MODULE Count; 

FROM InOut IMPORT Openlnput, Closeinput, Read, WriteLn, 
WrlteCard, WriteString; 

VAR Zeichen : CHAR; 

BuchstabenZahl : CARDINAL; 

BEGIN 

WriteLn; 

WriteString("Anzahl der Buchstaben in einem Text"); WriteLn; 

WriteString!"-"); WriteLn; 

WriteLn; 

OpenInput("MOD" ); WriteLn; 

IF NOT Done 

THEN WriteString("Datei existiert nicht!”; WriteLn; HALT 
END; (» IF *) 

BuchstabenAnzahl:=0; 

Read(Zeichen); 

WHILE Done DO 

Zeichen:=CAP(Zeichen); 

IF (Zeichen>="A") AND (Zeichen<="Z") 

THEN BuchstabenAnzahl:=BuchstabenAnzahl+l 
END; (« IF <•) 

Read(Zeichen) 

END; (* WHILE *) 

Closelnput; 

WriteString("Analyse beendet."); WriteLn; 

WriteString!"Es wurden "); 

WriteCard!BuchstabenAnzahl,1); 

WriteString!” Buchstaben gefunden."); 

WriteLn 
END Count. 
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Probelauf: 

Anzahl der Buchstaben in einem Text 


INPUT FROM COUNT 
Analyse beendet. 

Es wurden 547 Buchstaben gefunden. 

Aus diesem Programm läßt sich mit wenigen Handgriffen ein 
Kopierprogramm für Textdateien erstellen. Dazu leiten wir - ent¬ 
sprechend der Eingabe-Umleitung - auch die Ausgabe um. Die 
benötigten Prozeduren «OpenOutput» und «CloseOutput» finden 
wir wiederum in «InOut». Sie entsprechen völlig den schon 
bekannten Prozeduren «Openlnput» und «Closeinput». 


MODULE Kopieren; 

FROM InOut IMPORT Read, Done, Openlnput, Closeinput, OpenOutput, 
CloseOutput, Write, WriteLn, WriteString; 

VAR Zeichen : CHAR; 

BEGIN 

WriteLn; 

WriteString("Kopieren von Text-Dateien"); WriteLn; 

WriteString! "-"); WriteLn; 

WriteLn; 

Openlnput!"MOD"); WriteLn; 

IF NOT Done 

THEN WriteString!"Datei existiert nicht!"; WriteLn; HALT 
END; (« IF «) 

OpenOutput!"MOD"); 

Read(Zeichen); 

WHILE Done DO 
Write(Zeichen); 

Read(Zeichen) 

END; (« WHILE «) 

Closeinput; CloseOutput; 

WriteString!"Kopie erstellt."); WriteLn; 

END Kopieren. 


Probelauf: 

Kopieren von Text-Dateien 


INPUT FROM KOPIEREN 
OUTPUT TO COPY 
Kopie erstellt. 
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Aufgaben: 

1. Schreiben Sie das Programm unter ausschließlicher Verwendung 
von REPEAT-Anweisungen. 

2. Ändern Sie das Programm «Count» so, daß Groß- und Klein¬ 
buchstaben getrennt gezählt werden. 

3. Ändern Sie das Programm «Kopieren» so, daß alle Klein- in 
Großbuchstaben umgewandelt werden. 


4.4 Die LOOP-Anweisung 

Schleifen, die immer wieder durchlaufen und niemals abgebrochen 
werden, nennt man «Endlosschleifen». Normalerweise sind End¬ 
losschleifen grobe Programmierfehler, denen nur schwer auf die 
Schliche zu kommen ist, da das Programm an dieser Stelle richtig¬ 
gehend hängenbleibt. Allerdings gibt es einige wenige Fälle, in 
denen Endlosschleifen angebracht sind. Ein Beispiel hierfür ist das 
Betriebssystems eines Rechners: 

Wiederhole (immer und immer wieder) 

Melde Bereitschaft. 

Lies Befehl von der Tastatur. 

Führe den Befehl aus. 

Obwohl Endlosschleifen relativ einfach mit einer WHILE- (WHILE 
TRUE DO ...) oder einer REPEAT-Anweisung (REPEAT ... UNTIL 
FALSE) realisiert werden können, bietet Modula-2 in der LOOP- 
Anweisung eine eigene Endlosschleife. Der Grund hierfür liegt 
einerseits darin, daß durch den Wegfall des booleschen Ausdrucks 
die Anweisung schneller abgearbeitet werden kann. Andererseits 
ist es gerade bei prinzipiell unendlich durchlaufenen Schleifen 
wichtig, diese Eigenschaft transparent zu machen. Die Syntax der 
LOOP-Anweisung lautet: 

LOOP-Anweisung::="LOOP" Anweisungssequenz "END". 

Die von den beiden Schlüsselwörtern «LOOP» und «END» einge¬ 
schlossene Anweisungssequenz wird bedingungslos wiederholt. 
Soll die Schleife dennoch verlassen werden, so wird für diesen 
Zweck die EXIT-Anweisung bereitgestellt, die nur aus dem Schlüs¬ 
selwort «EXIT» besteht. 
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EXIT-Anweisung: :="EXIT". 

Die EXIT-Anweisung bewirkt, daß das Programm unmittelbar 
nach der LOOP-Anweisung fortgesetzt wird. Innerhalb einer 
LOOP-Anweisung können beliebig viele EXIT-Anweisungen Vor¬ 
kommen (außerhalb führt eine EXIT-Anweisung zu einer Fehler¬ 
meldung). Diese Möglichkeit erweitert den Einsatzbereich der 
LOOP-Anweisung auf solche Fälle, bei denen die Schleife infolge 
selten auftretender Ereignisse abgebrochen werden muß, deren 
stetige Abfrage in den booleschen Ausdrücken der WHILE- und 
REPEAT-Anweisung zu einem übermäßigen Rechenaufwand füh¬ 
ren würde: 


LOOP 

IF NochDatenDa 

THEN LiesDaten 

ELSIF FehlerAufgetreten 

THEN EXIT 

ELSE 

OeffneNeueDatei 
IF KeineMehrDa THEN EXIT END 
END 

END (» LOOP *) 


Würde man diese Anweisung mit einer REPEAT-Anweisung ver¬ 
wirklichen, so würde die direkte Umsetzung dazu führen, daß nach 
jedem Schleifendurchlauf alle drei Bedingungen geprüft werden 
müssen: 

REPEAT 

IF NochDatenDa 

THEN LiesDaten 

ELSIF NOT FehlerAufgetreten 

THEN OeffneNeueDatei 

END (*• IF «) 

UNTIL (KeineDatenMehrDa AND KeineDateiMehrda) OR FehlerAufgetreten 


Um das zu vermeiden, benutzt man meist eine boolesche Variable, 
die über das Schleifenende Auskunft gibt: 


VAR Fertig : BOOLEAN; 

Fertig:=FALSE; 

REPEAT 

IF NochDatenDa 

THEN LiesDaten 

ELSIF FehlerAufgetreten 

THEN Fertig:-TRUE 

ELSE 

OeffneNeueDatei 
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IF KeineMehrDa THEN Fertig:=TRUE 
END (» IF *) 

UNTIL Fertig 

Es ist Geschmackssache, ob man dieser Konstruktion den Vorzug 
gegenüber der Variante mit der LOOP-Anweisung gibt. Schlechte 
Programmierpraxis ist es jedoch, wenn man mit der LOOP-Anwei¬ 
sung die WHILE- und/oder die REPEAT-Anweisung ersetzt: 

WHILE BoolescherAusdruck DO Anweisungssequenz END <-> 

LOOP IF NOT BoolescherAusdruck THEN EXIT END; 
Anweisungssequenz END 

REPEAT Anweisungssequenz UNTIL BoolescherAusdruck <-> 

LOOP Anweisungssequenz; IF BoolescherAusdruck 
THEN EXIT END 

Obwohl sich die Anweisungen jeweils genau gleich verhalten, geht 
bei den LOOP-Varianten die Klarheit und damit Information für 
den Menschen verloren. Die LOOP-Anweisung soll also wirklich 
nur dann eingesetzt werden, wenn 

□ eine echte Endlosschleife benötigt wird oder 

□ der Einsatz zu einer Effizienzsteigerung führt, die auf anderem 
Wege nicht erreichbar ist. 

Hinweis: Bei Coroutinen und parallelen Prozessen werden häufig 
Endlosschleifen benötigt. Hier liegt auch das Haupteinsatzgebiet 
für die LOOP-Anweisung. 

Aufgaben: 

1. Schreiben Sie das Fakultätprogramm unter Verwendung der 
LOOP-Anweisung. 

2. Schreiben Sie das Text-Kopierprogramm mit der LOOP-Anwei¬ 
sung. 
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4.5 Die FOR-Anweisung 

Ein häufiger Sonderfall liegt bei solchen Schleifen vor, bei denen 
die Anzahl der Wiederholungen von vornherein bekannt ist. Hier 
kommt die FOR-Anweisung zum Einsatz: 

FOR-Anweisung::="FOR" Laufvariable ":=" Startwert "TO" 
Endwert 

["BY" Schrittweite] "DO" Anweisungssequenz 
"END". 

Startwert und Endwert sind Ausdrücke vom selben aufzählbaren 
Typ wie die Laufvariable. Die optionale Schrittweite ist eine Kon¬ 
stante vom Typ INTEGER oder CARDINAL. Wenn die Schritt¬ 
weite fehlt, wird 1 angenommen. Bei der Ausführung der FOR- 
Anweisung geschieht nun folgendes: 

1. Die Laufvariable (muß wie alle Variablen deklariert sein) wird 
auf den Startwert gesetzt. 

2. Der Wert der Laufvariablen wird mit dem Endwert verglichen. 
Ist dieser überschritten (bzw. unterschritten bei negativer 
Schrittweite), so ist die FOR-Anweisung beendet. 

3. Die Anweisungssequenz wird ausgeführt. Innerhalb der Anwei¬ 
sungssequenz kann auf die Laufvariable zugegriffen werden. Sie 
darf jedoch keinesfalls verändert werden! 

4. Zur Laufvariablen wird um die Schrittweite erhöht (bzw. ernied¬ 
rigt bei negativer Schrittweite) und das Verfahren bei 2. fortge¬ 
setzt. 

Da der Vergleich immer vor der Anweisungssequenz stattfindet, ist 
die FOR-Schleife abweisend. Das folgende Beispiel zählt auf dem 
Bildschirm bis 100. 

MODULE HeraufZaehlen; 

FROM InOut IMPORT WriteCard, WriteLn; 

VAR Zaehler : CARDINAL; 

BEGIN 

FOR i:=l TO 100 DO 

WriteCard(Zaehler,10); 

WriteLn 
END (« FOR ») 

END HeraufZaehlen. 



Die FOR-Anweisung 73 


Probelauf: 

1 

2 

3 

4 


Im nächsten Beispiel wird in Zweierschritten von 100 bis 0 gezählt: 


MODULE HerunterZaehlen; 

FROM InOut IMPORT WriteCard, WriteLn; 
VAR Zaehler : CARDINAL; 

BEGIN 

FOR i:=100 TO 0 BY -2 DO 
WriteCard!Zaehler,10); 

WriteLn 
END (*• FOR *) 

END HerunterZaehlen. 


Probelauf: 

100 

98 

96 


Mit der FOR-Anweisung läßt sich die Fakultät ganz einfach 
berechnen: 


MODULE FakultaetMitFOR; 

FROM InOut IMPORT ReadCard, WriteCard, WriteLn, WriteString; 

VAR Eingabe, Fakultaet, Zaehler : CARDINAL; 

BEGIN 

WriteString( "Berechnung der Fakultät mit der FOR-Anweisung 1 '); WriteLn; 

WriteString!"-"); WriteLn; 

WriteLn; 

WriteString!"Bitte eine natürliche Zahl: "); 

ReadCard(Eingabe); WriteLn; 

Fakultaet:=1; (* Anfangswert ») 

FOR Zaehler:=1 TO Eingabe DO 
Fakultaet:=Fakultaet"Zaehler 
END; (* FOR «) 

WriteCard!Eingabe,1); 

WriteString!"! = "); 

WriteCard(Fakultaet,l); 

WriteLn 

END FakultaetMitFOR. 
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Probelauf: 

Berechnung der Fakultät mit der FOR-Anweisung 


Bitte eine natürliche Zahl: 7 
7! = 5040 

Hinweis: n! ist die mathematische Schreibweise für die Fakultät 
von n. 


Es bedarf hoffentlich keiner besonderen Betonung mehr, daß FOR- 
Anweisungen (wie alle strukturierten Anweisungen) beliebig ver¬ 
schachtelt werden können. Das folgende Programm gibt eine 
ASCII-Tabelle aller druckbaren Zeichen aus. Dabei greifen wir auf 
die Konvention zurück, daß Laufvariable in Programmen mit «i» 
und «j» bezeichnet werden. Da die CHARACTER-Konstanten in 
Modula-2 im Oktalsystem angegeben werden müssen, geben wir 
die Spalten- und Zeileninformation auch in diesem Format aus. 
Dazu importieren wir die Prozedur «WriteOct» aus dem Standard¬ 
modul «InOut». 


MODULE ASCIITabelle; 

FROM InOut IMPORT Write, WriteString, WriteLn, WriteOct; 

VAR i,J : CARDINAL; 

BEGIN; 

WriteLn; 

WriteString("Die ASCII-Tabelle"); WriteLn; 

WriteString( "-"); WriteLn; 

WriteLn; 

WriteStringC "); 

FOR i:=0 TO 7 DO WriteOct(i,3) END; (“ Spaltenüberschrift ») 
WriteLn; 

FOR i:=32 TO 127 BY 8 DO 

Write0ct(i,3) ; (« Zeilen-Nummer *) 

FOR J:=0 TO 7 DO 
Write(" "); 

Write(CHR(i+j)); 

Write(" ") 

END; (* FOR j *) 

WriteLn 

END (* FOR i ") 

END ASCIITabelle. 
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Probelauf: 

Die ASCII-Tabelle 



0 

1 

2 

3 

4 

5 

6 

7 

40 


i 

n 

# 

$ 

% 

& 

/ 

50 

( 

) 

★ 

+ 

/ 

- 


/ 

60 

0 

1 

2 

3 

4 

5 

6 

7 

70 

8 

9 


/ 

< 

= 

> 


100 

@ 

A 

B 

C 

D 

E 

F 

G 

110 

H 

I 

J 

K 

L 

M 

N 

O 

120 

P 

Q 

R 

S 

T 

U 

V 

W 

130 

X 

Y 

Z 

[ 

\ 

] 

A 


140 

/ 

a 

b 

c 

d 

e 

f 

g 

150 

h 

i 

i 

k 

1 

m 

n 

0 

160 

P 

q 

r 

s 

t 

u 

V 

w 

170 

X 

y 

z 

{ 


} 

~ 



Für die Laufvariable (sowie den Start- und Endwert) gibt es nur die 
Einschränkung, daß sie demselben aufzählbaren Typ angehören 
müssen. Demnach kann die Laufvariable beispielsweise auch vom 
Typ CHAR oder BOOLEAN sein. 

Das folgende Beispiel schreibt erst alle Großbuchstaben aufstei¬ 
gend und dann alle Kleinbuchstaben absteigend auf den Bild¬ 
schirm: 


MODULE Buchstaben; 

FROM InOut IMPORT Write, WriteLn; 

VAR Zeichen : CHAR; 

BEGIN 

WriteString("Die Buchstaben: "); WriteLn; WriteLn; 
FOR Zeichen:-"A" TO "Z" DO Write(Zeichen); 

WriteLn; 

FOR Zeichen:="z" TO "a" BY -1 DO Write(Zeichen); 
WriteLn 

END Buchstaben. 


Probelauf: 

Die Buchstaben: 

ABCDEFGHIJKLMNOPQRSTUVWXYZ 
zyxwvutsrqponmlkj ihgf edcba 
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Gleich dreifach verschachtelt ist die FOR-Anweisung im nächsten 
Beispiel. Es handelt sich dabei um ein Programm, das eine einfache 
Knobelaufgabe löst: 

Ein Weg gabelt sich in drei Richtungen (A, B und C). Eine 
Familie, die mit den örtlichen Gegebenheiten nicht vertraut ist, 
weiß nun nicht, welcher Weg der richtige zur Fortsetzung ihrer 
Reise ist. Glücklicherweise steht an der Weggabel ein Einheimi¬ 
scher. Doch leider beantwortet er die Frage nach dem richtigen Weg 
genauso verklausuliert wie einst das Orakel von Delphi: 

1. Wenn der Weg B falsch ist, dann sind sowohl A als auch C 
richtig. 

2. Wenn entweder A oder B richtig ist, führt C in die Irre. 

3. Wenn C oder A richtig ist, dann ist B falsch. 

Die Lösung: 

Zur Ermittlung des richtigen Weges verwenden wir die Brute- 
Force-Methode (Methode der rohen Gewalt). Dabei werden alle 
Möglichkeiten durchgeprüft. Wenn bei einer Konstellation alle drei 
Sätze wahr werden, haben wir eine Lösung gefunden. 

Eine Richtung kann hier nur die Werte «richtig» oder «falsch» 
annehmen, damit ist der Datentyp BOOLEAN angebracht. Erin¬ 
nern wir uns an das Kapitel über den Datentyp BOOLEAN. Die 
Implikation (wenn ... dann) wird am einfachsten durch <= ausge¬ 
drückt. Den ersten Satz kann man so bilden: 

Satzl := (NOT B)<= (A AND C) 

Genauso können die Sätze 2 und 3 umgesetzt werden: 

Satz2 := (AoB) <= (NOT C) 

Satz3 := (C OR A) <= (NOT B) 

Wirklich erschöpfend ist unsere Prüfung, wenn wir alle TRUE- 
FALSE-Kombinationen berechnen. 

MODDLE Knobelei; 

FROM BooleanlnOut IMPORT WriteBoolean; 

FROM InOut IMPORT WriteString, WriteLn; 

VAR A,B,C, (* Die Richtungen *) 

Satzl, Satz2, Satz3 (die Sätze *) ; BOOLEAN; 
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BEGIN 

WriteString("Lösung der Khobelaufgabe: n ); WriteLn; 
WriteLn; 

FOR A:=FALSE TO TRUE DO 
FOR B:=FALSE TO TROE DO 
FOR C:=FALSE TO TRDE DO 
Satzl:=(NOT B)<=(A AND C); 

Satz2:=(A< >B)< = (NOT C); 

Satz3:=(C OR A)<=(NOT B); 

IF Satzl AND Satz2 AND Satz3 
THEN 

WriteStrlng("A -> "); WriteBoolean(A); WriteLn; 
WriteString("B -> "); WriteBoolean(B); WriteLn; 
WriteStrlng("C -> "); WriteBoolean(C); WriteLn; 
WriteLn 
END (* IF *) 

END (* FOR C ») 

END (« FOR B ») 

END (» FOR A *) 

END Knobelei. 


Probelauf: 

Lösung der Knobelaufgabe: 

A -> FALSE 
B -> TRUE 
C -> FALSE 


Tip zur Textgestaltung mit Wiederholungsanweisungen: Falls die 
gesamte Schleife nicht in eine Zeile paßt, ist es vorteilhaft, die 
Anweisungssequenz gegenüber dem Schleifenkopf (WHILE, 
REPEAT, LOOP, FOR) einzurücken und das Schleifenende (END, 
UNTIL) wieder auszurücken. 

Aufgaben: 

1. Schreiben Sie ein Programm, das die Summe aller natürlichen 
Zahlen bis zu einer eingegebenen CARDINAL-Zahl berechnet 
und ausgibt. 

2. Mit der Standardprozedur «FLOAT(CardinalZahl)» kann eine 
CARDINAL- in eine REAL-Zahl umgewandelt werden. Schrei¬ 
ben Sie ein Programm, das eine positive REAL-Zahl einliest und 
- mit einer FOR-Anweisung - die kleinste CARDINAL-Zahl 
sucht, die gleich oder größer der eingegebenen REAL-Zahl ist. 

3. Lassen Sie den Quotient zweier eingegebener CARDINAL-Zah- 
len in Form einer Dezimalzahl auf n Stellen genau ausgeben (wie 
Aufgabe 1 aus Abschnitt 4.2). Benutzen Sie dazu die FOR- 
Anweisung. 
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4.6 Die CASE-Anweisung 

Angenommen, Sie wollen ein Programm schreiben, mit dem ein 
Text so umkopiert wird, daß die deutschen Sonderzeichen nach 
folgenden Regeln entfernt werden: 

Ä -> Ae Ö -> Oe Ü -> Ue ä -> ae ö -> oe ü -> ue ß -> ss 

Mit den bisher bekannten Werkzeugen könnte das Problem so 
gelöst werden: 

IF Zeichen='Ä' THEN WriteString("Ae") 

ELSIF Zeichen='Ö' THEN WriteString("Oe") 

ELSIF Zeichen='Ü' THEN WriteString("Ue") 

ELSIF Zeichen='ä' THEN WriteString("ae") 

ELSIF Zeichen='ö' THEN WriteString("oe") 

ELSIF Zeichen='ü' THEN WriteString("ue") 

ELSIF Zeichen='ß' THEN WriteString("ss") 

ELSE Write(Zeichen) 

END 

Da solche Problemstellungen in der Praxis sehr häufig sind, gibt es 
in Modula-2 eine ganz wesentliche Vereinfachung für diese Kon¬ 
struktion. 

CASE-Anweisung: :="CASE" Ausdruck "OF" CASE-Liste 

CASE-Liste} 

"ELSE" Anweisungssequenz "END". 
CASE-Liste::=Marke {"," Marke} Anweisungssequenz. 

Marke: =KonstanterAusdruck | KonstanterAusdruck 
KonstanterAusdruck. 

Mit der CASE-An Weisung sieht obige Konstruktion so aus: 

CASE Zeichen OF 
'Ä' : WriteString("Ae") 

| 'Ö' : WriteString("Oe") 

| 'Ü' : WriteString("Ue") 
j 'ä' : WriteString("ae") 

| 'ö' : WriteString("oe") 

| 'ü' : WriteString("ue") 
j 'ß' : WriteString("ss") 

ELSE Write(Zeichen) 

END 
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Bei der Ausführung der CASE-Anweisung wird zunächst der Aus¬ 
druck berechnet. Dann werden die einzelnen CASE-Listen über¬ 
prüft, ob sich der Wert des Ausdrucks unter den Marken befindet. 
Fällt ein solcher Vergleich positiv aus, wird die entsprechende 
Anweisungssequenz abgearbeitet und die CASE-Anweisung been¬ 
det. Paßt der Wert des Ausdrucks auf keine Marke, wird die 
Anweisungssequenz nach «ELSE» ausgeführt. 

Der Ausdruck und die konstanten Ausdrücke der einzelnen 
CASE-Labels müssen vom gleichen aufzählbaren Typ sein. Die 
Form «Konstante..Konstante» ist eine Abkürzung für alle Werte 
innerhalb und einschließlich der beiden Konstanten. «1..5» ist 
demnach eine Abkürzung für «1, 2, 3, 4, 5». Man spricht in diesem 
Zusammenhang auch vom «Bereich der Zahlen von 1 bis 5». 

Die CASE-Anweisung wird nicht nur schneller ausgeführt als 
eine entsprechende IF-Anweisung, sie ist zudem kürzer und klarer. 
Dieser Sachverhalt tritt offen zutage, wenn man das obige Problem 
so erweitert, daß die Umlaute Ä, Ö und Ü nur dann nach der 
angegebenen Regel umgeformt werden, wenn der folgende Buch¬ 
stabe kein Großbuchstabe ist. Andernfalls gilt folgende Regel: 

Ä -> AE Ö -> OE Ü -> UE (Umlaute in großgeschriebenen 
Wörtern) 

MODULE Umlaute; 

FROM InOut IMPORT Write, WriteString, Read, Openlnput, Closeinput, 
OpenOutput, CloseOutput, Done; 

VAR Zeichen, Naechstes : CHAR; 

BEGIN 

WriteString("Umlaut-Umwandlung"); WriteLn; WriteLn; 

OpenInput( " " ); IF NOT Done THEN WriteString( "Keine Datei!") END; 
OpenOutput(""); 

Read(Zeichen); 

WHILE Done DO 
CASE Zeichen OF 
’S’.’ü’.’t)’ : Read(Naechstes); 

IF (NaeChstes>=’A’) AND (Naechstes<=’Z*) 

THEN CASE Zeichen OF 

’S’ : WriteStringC'AE") 

| ’ü’ : WriteString("OE") 

| ’U’ : WriteStringÜ’UE") 

END 

EISE CASE Zeichen OF 

’S’ : WriteString("Ae") 

| ’ü’ : WriteString("Oe") 
j ’t)’ : WriteString( "Ue") 

END 

END; (« IF «) 

Write(Naechstes) 
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| ’ä’ : WriteString("ae") 

] ’ö’ : WriteString("oe") 

j ’U’ : WriteString("ue") 
j ’ß’ : WriteString("ss") 

ELSE Write(Zeichen) 

END; (» CASE *) 

Read(Zeichen) 

END; (“ WHILE •*) 

CloseOutput; 

Closeinput 
END Umlaute. 

Für den Testlauf wurde dieser kurze Text unter dem Namen 
«TEST» auf Diskette gespeichert: 

UMLAUT-VERÄNDERUNG 


Während die Umlaute in großgeschriebenen Wörtern (wie in Über¬ 
schriften) in Großbuchstaben übersetzt werden, wird in anderen 
Fällen ein «e» angehängt. 

Probelauf: 

Umlaut-Umwandlung 

INPUT FROM TEST 
OUTPUT TO CON: 

UMLAUT-VERAENDERUNG 


Waehrend die Umlaute in grossgeschriebenen Woertem (wie in 

Ueberschriften) in Grossbuchstaben uebersetzt werden, wird in 

anderen Faellen ein «e» angehaengt. 

Aufgaben: 

1. Das Programm «Umlaute» geht davon aus, daß ein Text nicht 
mit einem der Zeichen Ä, 0 oder Ü endet. Andernfalls würde 
mit dem Prozeduraufruf «Read(Naechstes)» über das Ende der 
Datei hinaus gelesen. Ändern Sie das Programm so ab, daß auch 
dieser Sonderfall korrekt behandelt wird. 

2. Schreiben Sie ein Programm, das in einem Text alle Vorkommen 
von Großbuchstaben, Kleinbuchstaben, Steuer- und Sonderzei¬ 
chen zählt. 

3. Überlegen Sie, in welchen Fällen eine IF-Anweisung nicht durch 
eine CASE-Anweisung ersetzt werden kann. 
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Wir haben mit den Anweisungen das elementare Programmier¬ 
werkzeug kennengelernt. Aber genausowenig, wie sich ein Maschi¬ 
nenbau-Ingenieur beim Entwurf einer Maschine Gedanken über 
benötigte Schrauben oder zu verwendende Lötkolben macht, wird 
ein Programmierer bei der Entwicklung eines komplexen Pro¬ 
gramms den vorteilhaften Gebrauch dieser oder jener Anweisung 
ins Kalkül ziehen. Beide werden zunächst komplette Funktionsein¬ 
heiten als gegeben annehmen, die entweder bereits vorhanden sind 
oder deren Realisierung später erfolgen wird. 

Für den angehenden Programmierer ist es sehr wichtig, sich 
möglichst früh vom «Denken in Anweisungen» zu lösen. Er ver¬ 
meidet dadurch von vornherein, sich in Detailaufgaben zu verzet¬ 
teln und den Überblick über das Gesamtprojekt zu verlieren. 
Modula-2 unterstützt die Zusammenstellung eines Programms aus 
Funktionseinheiten wie kaum eine andere Programmiersprache 
durch das Prozedur- und das Modul-Konzept. 


5.1 Die Arbeitsorganisation in einem Unternehmen 

Wenn beispielsweise ein Chef an eine untergeordnete Abteilung 
eine Arbeit delegiert, so interessiert ihn normalerweise ausschließ¬ 
lich das Ergebnis und nicht, wie dieses Ergebnis zustande kommt. 
Denn schließlich ist es seine Aufgabe, die Arbeit der Abteilungen 
zu koordinieren und somit seinen Teil zum Erfolg des Unterneh¬ 
mens beizutragen. Ist die delegierte Arbeit sehr komplex, so wird 
die betroffene Abteilung ihrerseits weitere spezialisierte Arbeits¬ 
gruppen bilden. Andere Abteilungen wiederum werden von mehre¬ 
ren Stellen des Unternehmens genutzt. Irgendwann wird bei dieser 
Organisationsstruktur eine Ebene erreicht, in der sich die anfallen¬ 
den Arbeiten übersichtlich, klar und eindeutig beschreiben lassen. 
Und erst dieser Ebene entspricht die der Anweisungen. 
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Die Rolle des Programmierers beim Programmentwurf wechselt 
mit dem Fortschreiten seiner Arbeit. Erst ist er an der Stelle der 
Unternehmensführung, die die Arbeitsabläufe in sehr komplexen 
und abstrakten Einheiten beschreibt. Ist das Unternehmen erst 
einmal auf diesem Niveau definiert, nimmt er die Funktion der 
Leitung der komplexen Abteilungen wahr und organisiert deren 
innere Arbeitsabläufe usw., bis schließlich die unterste Ebene 
erreicht wird. Diese Vorgehensweise heißt «Methode der schritt¬ 
weisen Verfeinerung» oder auch «Top-down-Methode». Sie hat 
sich als die effizienteste und sicherste Methode der Programment¬ 
wicklung erwiesen. 


5.2 Prozeduren als Arbeitseinheiten 

Der Arbeitseinheit des Unternehmens entspricht die Prozedur in 
Modula-2. Mit den Standardprozeduren und den Prozeduren, die 
aus Bibliotheksmoduln importiert wurden, sind uns bereits solche 
begegnet, die ihre Arbeit jedem zur Verfügung stellen, der sie 
benötigt. Jetzt werden wir die Möglichkeit kennenlernen, selbst 
Prozeduren zu formulieren. 

In Modula-2 sind Prozeduren Bestandteil der Deklaration. Somit 
kann der Deklarationsteil wie folgt erweitert werden: 

Deklaration: := {Konstantenvereinbarung | Typendefinition | 
Variablendeklaration | Prozedurbeschreibung). 

Die Prozedurbeschreibung selbst hat eine ähnliche Gestalt wie ein 
Programm-Modul. Das ist nach dem bisher Gesagten auch nicht 
weiter verwunderlich, da eine Prozedur als Arbeitseinheit nichts 
anderes als ein Teilprogramm ist. 

Prozedurbeschreibung: :="PROCEDURE" Prozedurname [formale- 

Parameterliste] " 

Block Prozedurname "■/' 

Die Unterschiede zu einem Programm-Modul sind folgende: 

□ An die Stelle des Schlüsselwortes «MODULE» tritt «PROCE- 
DURE» 

□ Es gibt keine IMPORT-Listen, dafür aber eventuell formale 
Parameter. 

□ Die Prozedurbeschreibung wird mit « ; » abgeschlossen. 
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Ansonsten stimmen die Strukturen vollkommen überein. Da der 
Begriff «Block» auch Bestandteil der Prozedurbeschreibung ist und 
jeder Block wiederum einen eigenen Deklarationsteil enthalten 
kann, können Prozeduren beliebig verschachtelt werden. Aus die¬ 
sem Grund bezeichnet man Modula-2 auch als «blockstrukturierte 
Programmiersprache ». 

Wir wollen mit einem ganz einfachen Beispiel beginnen. Eine 
sehr häufig benötigte Aufgabe ist das Löschen des Bildschirms. Wir 
wollen dafür eine Prozedur schreiben. Normalerweise wird der 
Bildschirm gelöscht, indem ein bestimmtes Steuerzeichen (meist 
A L oder A Z) mittels «Write» an die Konsole ausgegeben wird. 

PROCEDURE LoescheBildschirm; 

CONST LoeschZeichen - 14C; (* *) 

BEGIN 

write(LoeschZeichen) 

END LoescheBildschirm; 

Selbstverständlich muß «Write» an dieser Stelle bekannt, d. h. 
importiert worden sein. In der Folge kann auf «LoescheBildschirm» 
genauso zugegriffen werden wie auf Standardprozeduren oder sol¬ 
che, die aus Bibliotheksmoduln importiert wurden. 


5.3 Lokale und globale Bezeichner 

Die wichtigste Eigenschaft einer Prozedurbeschreibung ist, daß alle 
Bezeichner des Deklarationsteils nach außen nicht sichtbar sind. 
So kann in unserem obigen Beispiel auf die Konstante «LoeschZei¬ 
chen» vom Anweisungsteil des Programmoduls nicht zugegriffen 
werden. «LoeschZeichen» ist nur innerhalb des zu «LoescheBild¬ 
schirm» gehörenden Blocks bekannt. 

Die innerhalb eines Blocks festgelegten Bezeichner heißen des¬ 
halb «lokal zu diesem Block». Sie sind in diesem und allen unterge¬ 
ordneten (verschachtelten) Blöcken bekannt. Ist ein Bezeichner in 
einem Block bekannt und nicht im Deklarationsteil dieses Blocks 
enthalten, so heißt er «global». 

«Lokal» und «global» sind also immer relativ zu einem Block (zu 
einer Umgebung) zu verstehen. So sind beispielsweise die Bezeich¬ 
ner eines Programm-Moduls zu allen Prozeduren als global, zum 
Modul selbst aber als lokal zu betrachten. 

Tritt eine Namenskollision auf, gibt es also zu einem lokalen 
Bezeichner einen gleichen globalen, so gilt an dieser Stelle nur der 
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lokale; der globale wird also innerhalb des Blocks verdrängt und ist 
nicht sichtbar. 

Innerhalb eines Blocks ist der Prozedurname selbst als globaler 
Bezeichner bekannt, der im umgebenden Block festgelegt wurde: 

MODDLE LokalUndGlobal; 

VAR A, B, C : CARDINAL; 

PROCEDDRE PI; 

VAR A : CHAR; 

BEGIN 

(» Hier bekannte Bezeichner: 

A von PI 

B, C, PI von LokalUndGlobal *) 

END PI; 

PROCEDURE P2 

VAR B, C : REAL; 

PROCEDURE P2a; 

VAR A, B : CARDINAL; 

BEGIN 

(* Hier bekannte Bezeichner: 

PI, P2 von LokalUndGlobal 
A, B von P2a; 

C von P2 *) 

END P2a; 

BEGIN (» Anweisungsteil von P2 *) 

(* Hier bekannte Bezeichner: 

A, PI, P2 von LokalUndGlobal 

B, C, P2a von P2 *) 

END P2; 

BEGIN (» Anweisungsteil von LokalUndGlobal *) 

(* Hier bekannte Bezeichner: 

A, B, C, PI, P2 von LokalUndGlobal *) 

END LokalUndGlobal. 

Auf die Bedeutung, die das Verständnis von lokalen und globalen 
Größen für die weitere Programmierarbeit hat, kann gar nicht 
nachdrücklich genug hingewiesen werden. 


Aufgaben: 

1. Machen Sie - wie im obigen Beispiel - die gültigen Bezeichner 
kenntlich. 

MODULE M; 

VAR X.Y : CARDINAL; 

Z : REAL; 

PROCEDURE P; 

VAR A,B,X,Y : INTEGER; 

Z : CARDINAL; 
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PROCEDORE PI; 

VAR A,B : CHAR 

BEGIN 

END PI; 

PROCEDURE P2; 

VAR P : CARDINAL; 
X : REAL; 

PROCEDURE P; 

VAR A,B : REAL; 

BEGIN 

END P; 

BEGIN 
END P2; 

BEGIN 
END M. 


2. Welche Ausgaben hat das folgende Programm? 

MODULE LokalTest; 

FROM InOut IMPORT WriteCard, WriteLn; 

VAR A,B, Summe : CARDINAL; 

PROCEDURE P; 

CONST A = 10; 

BEGIN 

WriteCard(B,10); WriteLn; 

B:=2; Summe:=A+B; 

WriteCard(Summe,10); WriteLn 
END P; 

BEGIN 

A:=1; B:=2; P; 

WriteCard(A,10); WriteLn; 

WriteCard(B,10); WriteLn; 

WriteCard?Summe,10); WriteLn 
END LokalTest. 


5.4 Formale Parameter 

Wenn einer Prozedur bestimmte Größen zur Verarbeitung mitge¬ 
teilt werden sollen, so kann das natürlich über globale Größen 
geschehen. Dieser Weg - er wird üblicherweise mit «Seiteneffekt» 
bezeichnet - birgt eine große Gefahr in sich. Die globalen Größen 
werden instabil, ohne daß dieser Sachverhalt offen zutage tritt. Es 
bedarf einer genauen Analyse und sorgfältigen Dokumentation, um 
aufzuzeigen, wo welche Größen von einer Prozedur benötigt und 
verändert werden. 
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Ein zweiter Grund, auf Seiteneffekte wann immer möglich zu 
verzichten, liegt darin, daß nur so universell einsetzbare Prozedu¬ 
ren geschaffen werden können, die nicht an den Deklarationsteil 
eines übergeordneten Blocks gekoppelt sind. 

Aus diesem Grund ist es möglich, den Datenaustausch zwischen 
einer Prozedur und deren Umgebung auf eine einzige Stelle zu 
konzentrieren, was der Programmsicherheit ganz unmittelbar 
zugute kommt. Diese Schnittstelle wird mit den formalen Parame¬ 
tern verwirklicht. 

Formale-Parameterliste:[Formalparameter] 

Formalparameter} ")". 

Formalparameter: :=["VAR"] Parametername 
Parametername} Typ. 

Beispiele: 

PROCEDURE BerechneSummejZahll, Zahl2 : CARDINAL; 

VAR Summe : CARDINAL); 

PROCEDURE SchreibeZeichenfZeichen: CHAR); 

PROCEDURE ZieheWurzel(Radikand : REAL; 

VAR Wurzel: REAL); 

Je nachdem, ob einem Formalparameter das Schlüsselwort «VAR» 
vorangeht oder nicht, unterscheidet man zwischen Referenz- und 
W ertparametern. 


5.4.1 Wertparameter 

Über Wertparameter werden einer Prozedur die Eingangsgrößen 
mitgeteilt. Der Parametername steht innerhalb der Prozedur für 
einen Wert des angegebenen Typs. Wird die Prozedur dann später 
aufgerufen, so wird anstelle des formalen Parameters ein Ausdruck 
übergeben. Ein bereits bekanntes Beispiel ist die Prozedur «Write- 
Card» aus dem Modul «InOut». Obwohl uns der genaue Aufbau 
dieser Prozedur nicht bekannt ist (und auch nicht weiter zu interes¬ 
sieren braucht), können wir die Parameterliste angeben: 


PROCEDURE WriteCardfWert, Stellen : CARDINAL); .... 
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Für «Wert» und «Stellen» kann beim Aufruf ein beliebiger Aus¬ 
druck vom Typ CARDINAL eingesetzt werden. 

Innerhalb einer Prozedur können Wertparameter wie lokale 
Variable benutzt werden, die automatisch deklariert sind und beim 
Prozeduraufruf dadurch initialisiert werden, daß der übergebene 
Wert in die lokale Variable kopiert wird, z. B.: 

Eine Prozedur mit dem Namen «xMalZeichen» soll ein Zeichen 
(CHAR) genau x-mal auf dem Bildschirm ausgeben und dann eine 
neue Zeile beginnen. 

PROCEDURE xMalZeichen(X : CARDINAL; Zeichen : CHAR); 

VAR i : CARDINAL; 

BEGIN 

FOR i:-l TO X DO Write(Zeichen) END; 

WriteLn 

END xMalZeichen; 

Diese Prozedur könnte später dann beispielsweise so aufgerufen 
werden: 

xMalZeichenf40,"X"); xMalZeichen(20+4-8,CHR(48+9)) ; ... 

Daß Wertparameter wie normale Variable behandelt werden kön¬ 
nen, zeigt die folgende Abwandlung der obigen Prozedur: 

PROCEDURE xMalZeichen!X : CARDINAL; Zeichen : CHAR); 

BEGIN 

WHILE X>0 DO 

Write(Zeichen); 

DEC(X) 

END; (« WHILE *) 

WriteLn 

END xMalZeichen; 


Als nächstes Beispiel wollen wir eine Prozedur schreiben, die die 
Division zweier natürlicher Zahlen auf n Stellen genau rechtsbün¬ 
dig in ein vorgegebenes Feld schreibt. Diese Prozedur erhält die 
Parameter «Dividend», «Divisor», «Feld» und «Stellen». Wir gehen 
davon aus, daß die Prozeduren «Write», «WriteString» und «Write- 
Card» verfügbar sind. 

Den Algorithmus für die Ausgabe leiten wir aus den Vorschriften 
ab, die wir selbst bei der schriftlichen Teilung zweier Zahlen 
ausführen: 

Der Vorkommateil der Division ergibt sich als: Dividend DIV 
Divisor. 
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Die Stellenzahl für den Vorkommateil ist Feld-Stellen-1. 
Schreibe den Dezimalpunkt. 

Der Rest ist Dividend MOD Divisor. 

Wiederhole Stellen-mal. 

Schreibe Rest* 10 DIV Divisor. 

Rest ist Rest* 10 MOD Divisor. 


PROCEDURE SehreibeDivision(Dividend, Divisor, Feld, Stellen); 
VAR Rest : CARDINAL; 

BEGIN 

IF Divisor=0 

THEN WriteString("Fehler: Division durch 0!") 

ELSE 

WriteCard(Dividend DIV Divisor,Feld-Stellen-l); 

Rest:“Dividend MOD Divisor; 

Write("."); 

WHILE Stellend DO 

WriteCard(10*Rest DIV Divisor.l); 

Rest:=10**Rest MOD Divisor; 

DEC(Stellen) 

END (“ WHILE *•) 

END (» IF ») 

END SchreibeDivision; 


Als abschließendes Beispiel zu den Wertparametern wollen wir 
eine Prozedur betrachten, mit der der Cursor auf dem Bildschirm 
beliebig positioniert werden kann. Solche Terminal-Aktivitäten 
werden normalerweise über sogenannte ESCAPE-Sequenzen reali¬ 
siert. Das heißt, es werden zunächst das Steuerzeichen <ESC> 
(33C), dann ein spezielles Steuerzeichen und schließlich die eigent¬ 
lichen Koordinaten (eventuell in verschlüsselter Form) eingegeben. 
Die ESCAPE-Sequenz zur Bildschirmpositionierung lautet bei vie¬ 
len Terminals: <ESC> «=» CHR(x+32) CHR(y+32) 

PROCEDDRE gotoxy(x,y : CARDINAL); 

BEGIN 

Write(33C); Write("="); Write(CHR(x+32)); Write(CHR(y+32)) 

END gotoxy; 


Diese unscheinbare Prozedur ist die Grundlage für jede vernünftige 
Bildschirmgestaltung. 


5.4.2 Referenzparameter 

Mit Wertparametem können Daten von außen in eine Prozedur 
gebracht werden. Das Prozedurkonzept wäre aber unvollständig, 
gäbe es nur diese eine Richtung der Datenübergabe. Der bidirelctio- 
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nale (in zwei Richtungen) Datenaustausch wird durch sogenannte 
Referenzparameter realisiert. In der Parameterliste werden Refe¬ 
renzparameter durch Voranstellen des Schlüsselwortes «VAR» 
gekennzeichnet. Es weist darauf hin, daß beim Prozeduraufruf an 
dieser Stelle ausschließlich eine Variable übergeben werden darf, 
nicht jedoch ein Ausdruck oder eine Konstante. 

Innerhalb der Prozedur weist zunächst nichts auf einen Unter¬ 
schied zu Wertparametern hin. Da aber beim Prozeduraufruf keine 
Kopie gefertigt, sondern wirklich die übergebene Variable verwen¬ 
det wird, kann eine Prozedur über Referenzparameter Ergebnisse 
nach außen mitteilen. Jede Änderung, die an dem übergebenen 
Parameter vorgenommen wird, wirkt unmittelbar auf die überge¬ 
bene Variable. 

Die folgende Prozedur berechnet die Summe zweier Zahlen. Die 
beiden Zahlen, «Summandl» und «Summand2», sind die Eingangs¬ 
größen und deshalb als Wertparameter anzugeben. Das Ergebnis der 
Addition wird über den Referenzparameter «Sum m e» nach außen 
mitgeteilt. 


PROCEDURE Summe(Summandl, Summand2 : CARDINAL; VAR Ergebnis : CARDINAL); 
BEGIN 

Ergebnis:=Summandl+Summand2 
END Summe; 

Sind die Variablen X, Y und Z als Typ «CARDINAL» deklariert, so 
sind folgende Prozeduraufrufe zulässig: 

Summe(l,30,X) ; 

Summe(8 DIV Y,14-Z,X) ; 

Summe(X,X,X) ; (* Hier hat X nach dem Aufruf den Wert 2*X *) 

Verboten hingegen sind alle Aufrufe, bei denen als dritter Parame¬ 
ter keine CARDINAL-Variable übergeben wird: 

Summe) 1,2,3); 

Summe(12-X,20,2*Z) ; 

Summe(X,Y,Y+Z) ; 

Im nächsten Beispiel wollen wir von der Tastatur eine Zahl einie¬ 
sen, die innerhalb der Grenzen «von» und «bis» liegt: 
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PROCEDURE LiesZahI(VAR Zahl ; CARDINAL; von, bis : CARDINAL); 

BEGIN 

REPEAT 

WriteString("Bitte geben Sie eine Zahl zwischen "); 
WriteCard(von,1); 

WriteString(" und "); 

Wr iteCard(bis,1); 

WriteString(" ein: "): 

ReadCard(Zahl); 

WriteLn 

UNTIL (Zahl>=von) AND (Zahl<=bis) 

END LiesZahl; 

Die folgende Prozedur berechnet die Fakultät einer eingegebenen 
Zahl: 

PROCEDURE FakultaetsBerechnung(Zahl : CARDINAL; VAR Fakultaet : CARDINAL); 
BEGIN 

Fakultaet:=1; 

WHILE Zahl>0 DO 

Fakultaet:=Fakultaet»Zahl; 

DEC(Zahl) (* oder Zahl:=Zahl-l ») 

END (« WHILE «) 

END FakultaetsBerechnung; 


Zusammenfassend können folgende Punkte zu den Parametern 
herausgestellt werden: 

□ Wertparameter sind ausschließlich Eingangsgrößen einer Proze¬ 
dur. 

□ Referenzparameter erlauben den Datenaustausch in beiden 
Richtungen. 

□ Die Parameterliste einer Prozedur kann beliebig lang sein. 

□ Beim Prozeduraufruf muß die Reihenfolge der aktuellen Parame¬ 
ter mit der der formalen Parameter übereinstimmen. 

Um eine möglichst hohe Programmsicherheit zu gewährleisten, 
sollten nur dann Referenzparameter verwendet werden, wenn über 
sie wirklich ein Ergebnis nach außen mitgeteilt wird. Leider findet 
man in der «Fortgeschrittenen-Literatur» immer wieder Fiinweise 
und Tips zur Programmoptimierung (in bezug auf Ablaufgeschwin¬ 
digkeit und Speicherbedarf), die besagen, Referenzparameter auch 
dann einzusetzen, wenn sie nur die Funktion von Wertparametern 
übernehmen, also nur Eingangsgrößen sind. Solchen Tips ist an 
dieser Stelle leidenschaftlich zu widersprechen. Die modernen 
Computer verbinden hohe Leistungsfähigkeit und große Speicher¬ 
kapazitäten in einem Maße, daß die geringfügigen Effizienzge¬ 
winne in keinem Verhältnis zur gewonnenen Sicherheit stehen. 
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Die (meist kaum meßbaren) Effizienzgewinne kommen übrigens 
daher, daß bei Referenzparametern keine Kopie an eine lokale 
Variable erfolgen muß. 

Aufgaben: 

1. Im Deklarationsteil eines Programm-Moduls befindet sich fol¬ 
gende Prozedurbeschreibung: 

PROCEDURE xyzjVAR A,B : CARDINAL; C : CARDINAL); ... 

Welche der folgenden Prozeduraufrufe sind zulässig (VAR n,m : 
CARDINAL)? 

xyz(n,m,3-9); 

xyz(n,n,m); 

xyz(n, 1000 DIV m,m); 

xyz(n,m,2*m-n+ORD("A")) 

2. Welche Parameterarten haben normalerweise Ausgabeprozedu¬ 
ren, und welche haben Eingabeprozeduren? 


5.5 Die RETURN-Anweisung 

Eine Prozedur wird - genauso wie ein Programm - immer vollstän¬ 
dig abgearbeitet. In manchen Fällen kann es nötig sein (etwa beim 
Auftreten von irgendwelchen Fehlern), eine Prozedur vorzeitig zu 
verlassen. Hier kann dann die RETURN-Anweisung eingesetzt 
werden, die nur aus dem Schlüsselwort «RETURN» besteht. 

RETURN-Anweisung: :="RETURN". 

Die Ausführung der RETURN-Anweisung bewirkt einen Sprung an 
das Ende des Anweisungsteiles der Prozedur, in der die Anweisung 
steht. Innerhalb eines Anweisungsteiles einer Prozedur darf die 
RETURN-Anweisung beliebig oft Vorkommen. 

Im Anweisungsteil eines Moduls darf die RETURN-Anweisung 
nicht benutzt werden. Sie ist somit in ähnlicher Weise an Prozedu¬ 
ren gekoppelt wie EXIT an die LOOP-Anweisung. 

Als Beispiel dient eine Prozedur, die eine CARDINAL-Zahl von 
der Tastatur einliest. Tritt dabei ein Fehler auf,- so wird die Proze- 
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dur mit einem Fehlercode verlassen. Die Fehlercodes sind dabei 
wie folgt festgelegt: 

0 : Alles in Ordnung 

1 : Illegale Zeichen in der Zahl 

2 : CARDINAL-Überlauf (Zahl ist zu groß) 

Die Prozedur geht davon aus, daß die Konstante «EOL» bekannt ist, 
die das Ende einer Eingabezeile angibt. «EOL» (End Of Line = Ende 
der Zeile) ist von Typ «CHAR» und wird normalerweise vom 
Modul «InOut» exportiert, in manchen Systemen vom Modul 
«ASCII». 


PROCEDURE LiesCard(VAR Zahl, Fehlercode : CARDINAL); 

VAR Zeichen : CHAR; 

BEGIN 

Zahl:=0; Fehlercode:=0; 

LOOP 

Read(Zeichen); 

CASE Zeichen OF 
EOL : RETURN 

| ’0’..’9’ : IF Zahl< = (MAX(CARDINAL)-(ORD(Zeichen)-ORD(’0’))) DIV 10 
THEN Zahl:=10"Zahlt!0RD(Zeichen)-0RD( ’ 0’) 

ELSE Fehlercode:=2; RETURN 
END 

ELSE Fehlercode:=1; RETURN 
END (<• CASE ») 

END (* LOOP ») 

END LiesCard; 


Die in der Prozedur vorkommenden Formeln (Ausdrücke) setzen 
sich folgendermaßen zusammen: Wenn eine Zahl von links nach 
rechts ziffernweise eingegeben wird, so berechnet sich ihr Wert aus 
10 * Zahl + Ziffer. 

Beispiel: Eingegeben wird die Ziffemfolge 1, 2 und 3. 

Start: Zahl:=0 

Gelesene Ziffer 12 3 

Zahl 0*0+l=l 1*10+2=12 12*10+3=123 

Um in Modula-2 den (Zahlen-)Wert einer Ziffer zu bestimmen, 
wird von ihrem ASCII-Code derjenige der Ziffer 0 abgezogen (ORD- 
(Zeichen)-ORD('O')). Der Überlauftest kann nun nicht durch fol¬ 
gende Konstruktion erfolgen: 
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IF Zahl* 10 + (ORD(Zeichen)-ORD('O')) <= MAX(CARDINAL) 
THEN ... 

Hier würde ein eventueller Überlauf auf treten, bevor (!) er erkannt 
werden könnte. Aus diesem Grund wird dieser Ausdruck folgender¬ 
maßen umgeformt: 

Zahl* 10 <= MAX(CARDINAL) - (ORD(Zeichen)-ORD('O')) 

Zahl <= (MAX(CARDINAL) - (ORD(Zeichen)-ORD('O'))) 
DIV 10 


Der Einsatz der RETURN-Anweisung ist nur bei komplexen oder 
besonders zeitkritischen Prozeduren angezeigt. Im weiteren Ver¬ 
lauf dieses Kurses werden Sie den Einsatz der RETURN-Anweisung 
noch mehrfach kennenlernen. Das obige Beispiel kann, ohne an 
Klarheit zu verlieren, auch mit einer REPEAT-Anweisung realisiert 
werden. 


PROCEDURE LiesCard(VAR Zahl, Fehlercode : CARDINAL); 

VAR Zeichen : CHAR; 

BEGIN 

Zahl:=0; Fehlercode:=0; 

REPEAT 

Read(Zeichen); 

CASE Zeichen OF 

EOL : (» nichts *) 

| ’0’..’9 ’ : IF Zahl< = (MAX(CARDINAL)-(0RD(Zeichen)-0RD(’0’))) DIV 10 
THEN Zahl:-10*Zahl+(ORD(Zeichen)-ORD(’0’) 

ELSE Fehlercode:=2 
END 

ELSE Fehlercode:-l 
END (* CASE *) 

DNTIL (Zeichen-EOL) 0R (Fehlercoden) 

END LiesCard; 


Aufgaben: 

1. Die Prozedur «LiesCard» hat zwei kleine Schönheitsfehler. Zum 
einen werden führende Leerzeichen nicht übersprungen, zum 
anderen wird eine Leerzeile als Eingabe der Zahl 0 fehlinterpre¬ 
tiert. Beheben Sie diese Fehler. 

2. Schreiben Sie eine Prozedur «Lieslnt» in gleicher Weise wie 
«LiesCard». 



94 Prozeduren 


5.6 Funktionsprozeduren 

Der Sonderfall einer Prozedur liegt dann vor, wenn sie genau einen 
Rückgabewert liefert, alle anderen Parameter ausschließlich Ein¬ 
gangsgrößen sind. Handelt es sich bei dem Rückgabewert um einen 
der Grundtypen (einschließlich REAL), so können derartige Proze¬ 
duren als sogenannte «Funktionsprozeduren» formuliert werden. 
Dabei wird der Rückgabewert nicht in die Parameterliste aufge¬ 
nommen. Vielmehr repräsentiert der Prozedurname dann selbst 
diesen Rückgabewert, dessen Typ an die Parameterliste - durch 
Doppelpunkt abgetrennt - angehängt wird. 

Funktionsprozedur: :="PROCEDURE" "(" [Formalparameter] 

Formalparameter} ")" 

FunlctionsTyp. 

Funktionsprozeduren entsprechen genau dem, was wir bisher unter 
dem Namen Funktion kennengelernt haben. Wichtig ist - im 
Unterschied zu normalen Prozeduren - daß eine Funktionsproze¬ 
dur immer eine Parameterliste haben muß, die jedoch auch leer 
sein kann. Zudem muß jede Funktionsprozedur mindestens eine 
RETURN-Anweisung haben, wodurch der Funktionswert nach 
außen gegeben wird. In Funktionsprozeduren hat die RETURN- 
Anweisung folgende Gestalt: 

RETURN-Anweisung: :="RETURN" Ausdruck. 

Der Ausdruck muß vom Typ der Funktionsprozedur sein. Da der 
Name einer Funktionsprozedur den Funktionswert repräsentiert, 
muß der Aufruf innerhalb eines Ausdrucks erfolgen. Man kann 
auch sagen, eine Funktionsprozedur wird durch Verwendung aufge¬ 
rufen. 

Beispiele: 

PROCEDURE Fakultaet(N : CARDINAL):CARDINAL; 

VAR i, Fak : CARDINAL; 

BEGIN 
Fak:=1; 

FOR i:=l TO N DO Fak:=Fak»i END; 

RETURN Fak 
END Fakultaet; 
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Ein Gebrauch dieser Funktion könnte beispielsweise so lauten: 


WriteCard(Fakultaet(8),10); 

PROCEDURE Klein(Zeichen) : CHAR; 

(** Gegenstück von ’CAP’, wandelt Groß- in Kleinbuchstaben *) 
BEGIN 

IF (C>=’A’) AND (C<=’Z’) (« Großbuchstabe *) 

THEN RETDRN CHR(0RD(Zeichen)+0RD(’a’)-0RD(’A’)) 

ELSE RETURN Zeichen 
END 

END Klein; 


Folgende Punkte sollten im Sinne eines guten Programmierstils 

beim Einsatz von Funktionsprozeduren unbedingt beachtet 

werden: 

□ Die Parameterliste einer Funktionsprozedur sollte ausschließ¬ 
lich aus Wertparametern bestehen. 

□ Eine Funktionsprozedur sollte niemals irgendwelche Seitenef¬ 
fekte haben. 

Aufgaben: 

1. Schreiben Sie eine Funktionsprozedur «CARD», die den CAR- 
DINAL-Wert einer Ziffer liefert, also beispielsweise CARD('5') 
-> 5. 

2. Schreiben Sie eine Funktionsprozedur, die angibt, ob eine über¬ 
gebene CARDINAL-Zahl gerade (ohne Rest durch 2 teilbar) ist. 

3. Schreiben Sie eine Funktionsprozedur, die prüft, ob es sich bei 
der übergebenen CARDINAL-Zahl um eine Primzahl handelt. 

4. Schreiben Sie eine Funktionsprozedur «FRAC», die den Nach¬ 
kommateil einer übergebenen REAL-Zahl liefert. 
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Mit Prozeduren kann ein komplexes Problem in einzelne Teilauf¬ 
gaben zerlegt werden. Dies ermöglicht eine einfache, übersichtli¬ 
che und sichere Programmierung. Trotzdem reicht das Prozedur¬ 
konzept für moderne Programmiertechniken nicht aus. Um dieser 
Behauptung zustimmen zu können, müssen wir die Grenzen der 
Prozeduren genauer untersuchen. 

Als erstes ist festzustellen, daß Prozeduren prinzipiell an das 
Programm-Modul gebunden sind, in dessen Deklarationsteil sie 
beschrieben wurden. Wird in einem anderen Programm dieselbe 
Prozedur benötigt, so muß sie dort erneut gleichlautend geschrie¬ 
ben werden. Moderne Textverarbeitungssysteme unterstützen 
zwar in hohem Maß solche Texteinbindungen, doch bleibt es 
ärgerlich und überflüssig, daß derart eingebundene Textteile erneut 
übersetzt werden müssen, obwohl ganz offensichtlich eine einma¬ 
lige Übersetzung ausreichen würde. Hier ist eine Art Bibliothek 
wünschenswert, aus der man bei Bedarf die bereits fix und fertig 
übersetzten Bausteine entnehmen kann. 

Ein anderes Problem tritt auf, wenn ein Programm so groß ist, 
daß seine Realisierung auf mehrere Programmierer verteilt wird. 
Hier ist es nicht nur wünschenswert, sondern sogar unabdingbar, 
daß in jedem der derart entstehenden Programm teile alle Details, 
die nicht unmittelbar an das Gesamtprogramm weitergegeben wer¬ 
den, vor den anderen Teilnehmern versteckt werden können. Bei 
diesem «Verstecken» geht es gar nicht darum, die übrigen Program¬ 
mierer vom eigenen Know-how auszuschließen. Vielmehr besteht 
die Gefahr, daß fremde Strukturen ohne böse Absicht mißbräuch¬ 
lich genutzt werden, was zu äußerst schwer entdeckbaren Pro¬ 
grammfehlern führen kann. Ein wesentlich sichererer Weg besteht 
darin, nur die gewünschten Bezeichner als für andere zugänglich 
auszuzeichnen, also eine Sichtbarkeitshülle um ganze Programm¬ 
teile zu legen und damit das Innere vor fremden Zugriffen zu 
schützen. 



98 Module 


Aber auch innerhalb eines Programm-Moduls kann es nötig sein, 
einen einzelnen Komplex aus mehreren Prozeduren zu schützen, 
wenn diese Prozeduren beispielsweise via Seiteneffekt einen 
gemeinsamen Datenbestand bearbeiten und dieser Datenbestand 
nicht unmittelbar zum Hauptprogramm gehört. Zudem wäre es 
sinnvoll, wenn solche Komplexe einen eigenen Anweisungsteil 
hätten, in dem alle benötigten Initialisierungen vorgenommen 
würden, ohne daß sich das Hauptprogramm darum kümmern muß. 
Auf diese Weise kann verhindert werden, daß die u.U. notwendige 
Definition eines Anfangszustandes vergessen wird. 

Alle diese Forderungen werden von Modula-2 durch die Bereit¬ 
stellung des Modul-Konzepts erfüllt. Ein Modul bildet eine in jeder 
Richtung undurchlässige Hülle. Im Gegensatz zu Prozeduren, wo 
innerhalb eines Blocks auch alle äußeren Blöcke bekannt sind, ist 
ein Modul vollkommen isoliert. Einzig durch ausdrückliche Erklä¬ 
rung kann für einzelne Bezeichner die Isolation aufgehoben 
werden. 


6.1 Programm-Module 

Bisher haben wir es ausschließlich (mit Ausnahme des Vorgriffs 
«BooleanlnOut») mit Programm-Moduln zu tun gehabt. Diese 
erzeugen - wie an den vielen Beispielen gesehen - ablauffähige 
Programme. Sie können keine Bezeichner nach außen abgeben 
(exportieren). Um Bezeichner aus Bibliotheksmoduln innerhalb 
eines Programm-Moduls sichtbar zu machen, müssen sie explizit 
importiert werden. Zur Wiederholung noch einmal die Syntax des 
Programm-Moduls: 

Programm-Modul::="MODULE" Modulname "■/' 

[Import-Listen] Block Modulname 

Ein Programm-Modul ist eine sogenannte Compilationseinheit. 
Das bedeutet, daß es vom Compiler vollständig bearbeitet werden 
kann. 
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6.2 Bibliotheksmodule 

Mit den Bibliotheksmoduln ist es möglich, Konstante, Typen, 
Variable und Prozeduren beliebig verfügbar zu machen. Um dem 
gewünschten Verbergungsprinzip zu genügen, bestehen Biblio- 
thelcsmodule aus zwei Teilen, dem Definitions- und dem Imple¬ 
mentationsteil. 


6.2.1 Das Definitionsmodul 

Im Definitionsmodul werden alle Bezeichner aufgeführt, die vom 
Bibliothelcsmodul bereitgestellt (exportiert) werden. 

Definitionsmodul: :="DEFINITION" "MODULE" Modulname "," 
[Import-Listen] Block Modulname 

Syntaktisch unterscheidet sich ein Definitionsmodul nur im 
Schlüsselwort «DEFINITION» von einen Programm-Modul. Den¬ 
noch gilt es einige Besonderheiten zu beachten: 

□ Der Block eines Definitionsmoduls ist immer leer, besteht also 
nur aus dem Schlüsselwort «END». 

□ Bei den Prozeduren wird nur der Prozedurkopf angegeben. 

Auch ein Definitionsmodul bildet eine Compilationseinheit. Es 
wird jedoch kein ausführbares Programm erzeugt. Dennoch kann 
nach der Übersetzung bereits auf die exportierten Bezeichner zuge¬ 
griffen werden. Da die genaue Ausführung aber noch fehlt, können 
die exportierten Prozeduren noch nicht verwendet werden. 

Hinweis: Diese Beschreibung folgt der neuen Fassung von Modula- 
2. In älteren Systemen müssen alle exportierten Bezeichner in einer 
eigenen Export-Liste aufgeführt werden. 

Definitionsmodul: :="DEFINITION" "MODULE" Modulname "," 
[Import-Listen] 

Export-Liste Block Modulname 
Export-Liste: :="EXPORT" "QUALIFIED" Bezeichner 
Bezeichner} 
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Angenommen, wir wollen ein Bibliotheksmodul erstellen, das 
sogenannte Zufallszahlen liefert, die in allen Simulationsprogram¬ 
men benötigt werden. Unser Modul soll sowohl Zahlen von Typ 
CARDINAL als auch vom Typ REAL liefern. Während die REAL- 
Zahlen Werte von 0.0 (eingeschlossen) bis 1.0 (ausgeschlossen) 
annehmen sollen, soll bei den CARDINAL-Zahlen die gewünschte 
Obergrenze in Form eines Parameters angegeben werden. 

DEFINITION MODULE Random; 

(* Liefert CARDINAL- und REAL-Zufallszahlen *) 

PROCEDURE RandomReal():REAL; 

(* 0.0<= RandomReal < 1.0 *) 

PROCEDURE RandomCardfMaximum : CARDINAL): 
CARDINAL; 

(* 0 <= RandomCard < Maximum *) 

END Random. 

Definitionsmodule erfüllen eine Doppelfunktion. Ihre übersetzte 
Form stellt dem Modula-2-System die Schnittstelle zum Biblio¬ 
theksmodul zur Verfügung. Mit den darin enthaltenen Funktionen 
kann der Compiler später prüfen, ob die exportierten Bezeichner 
korrekt angewandt werden. Die Textform eines Definitionsmoduls 
ist für alle Programmierer von Interesse, die an den Leistungen des 
Moduls teilhaben wollen. Aus diesem Grund bedürfen Defini¬ 
tionsmodule immer einer ausführlichen Dokumentation. Die 
Dokumentation umfaßt oft mehrere Seiten, Ergebnisse und 
Arbeitsweise der exportierten Bezeichner sind hier genau darzu¬ 
legen. 


6.2.2 Das Implementations-Modul 

Im Implementationsteil schließlich folgt die Ausführung eines 
Bibliotheksmoduls. Innerhalb eines Implementations-Moduls 
k ann der zugehörige Definitionsteil als bekannt vorausgesetzt 
werden. 

Implementations-Modul: :="IMPLEMENTATION" "MODULE" 

Modulname 

[Import-Listen] Block Modulname 
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Hier ist die Ähnlichkeit zum Programm-Modul sogar noch stärker. 

Folgende Besonderheiten sind zu beachten: 

□ Alle Prozeduren des dazugehörigen Definitionsmoduls müssen 
hier ausformuliert werden. Die Prozedurköpfe müssen gleich¬ 
lautend übernommen werden. 

□ Alle weiteren Deklarationen sind lokal zum Modul. 

□ Ein Implementations-Modul kann einen nicht-leeren Anwei¬ 
sungsteil enthalten. Dieser wird ausgeführt, bevor zum ersten 
Mal auf einen exportierten Bezeichner zugegriffen wird. 
Dadurch ist es möglich, Objekte des Moduls zu initialisieren. 

Zum besseren Verständnis nun der Implementationsteil unseres 

Zufallsmoduls: 


IMPLEMENTATION MODULE Random; 

(* Bestimmt eine Folge von Zufallszahlen nach dem HP(Hewlett-Packard)- 
Verfahren. *) 

FROM InOut IMPORT ReadCard, WriteString, WriteLn, Done; 

CONST irrational = 1.1415926536; 

(* HP wählt hier die Kreiszahl pi, was aber auf 16-Bit-Systemen zu 
Überläufen führt. Deshalb nehmen wir pi-2.0. *) 

VAR Startwert : CARDINAL; 

Zufallszahl : REAL; 

PROCEDURE NeueZahl; 

PROCEDURE FRAC(Zahl : REAL):REAL; 

(* Berechnet den Nachkommateil einer reellen Zahl ») 

BEGIN 

RETURN Zahl-FLOAT(TRUNC(Zahl)) 

END FRAC; 

PROCEDURE HochAcht(Zahl : REAL):REAL; 

(* Berechnet Zahl hoch 8 *) 

VAR i : CARDINAL; 

BEGIN 

FOR i:=l TO 3 DO Zahl:=Zahl«Zahl END; 

RETURN Zahl 
END HochAcht; 

BEGIN (» NeueZahl •) 

Zufallszahl:=FRAC(HochAcht(Zufallszahl+irrational)) 

END NeueZahl; 

PROCEDURE RandomReal():REAL; 

BEGIN 

NeueZahl; 

RETURN Zufallszahl 
END RandomReal; 
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PROCEDURE RandomCard(bis : CARDINAL):CARDINAL; 

BEGIN 

NeueZahl; 

RETDRN TRDNC(FLOAT(bis)« Zufallszahl) 

END RandomCard; 

BEGIN (» Initialisierung des Zufallsgenerators ») 

REPEAT 

WriteString( "Startwert flir Zufallsgenerator (Zahl > 0) "); 
ReadCard(Startwert); 

WriteLn 

UNTIL Done AND (Startwert>0); 

Zufallszahl:=1.0/FLOAT(Startwert) 

END Random. 


Dieses Modul kann erst übersetzt werden, wenn das zugehörige 
(und gleichnamige) Definitionsmodul erfolgreich übersetzt wurde. 
Im Anschluß daran steht ein vollständiges Bibliotheksmodul «Ran¬ 
dom» zur Verfügung. Ein kleines Testprogramm zeigt die Funk¬ 
tionsweise. 


MODULE RandomTest; 

FROM Random IMPORT RandomCard; 

FROM InOut IMPORT WriteCard, WriteLn; 

VAR i : CARDINAL; 

BEGIN 

FOR i:-l TO 15 DO 

WriteCard(RandomCard(100),10); 
WriteLn 
END (« FOR ») 

END RandomTest. 


Probelauf: 

Startwert für Zufallsgenerator (Zahl > 0) 2 
73 
84 
88 
11 
91 
42 
53 
53 
28 
20 
33 
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43 

35 

67 

4 

Im weiteren Verlauf dieses Kurses werden noch mehrere Biblio- 
theksmodule vorgestellt. 


6.2.3 Import aus Bibliotheksmoduln 

Für den Zugriff auf Bibliotheksmodule gibt es zwei Möglichkeiten. 
Die erste besteht darin, in einer Importliste den Namen des Moduls 
sowie alle gewünschten Bezeichner anzugeben: 

"FROM" Modulname "IMPORT" Bezeichner {"/' Bezeichner} ”■/' 

Dieses Verfahren ist dann nicht mehr anzuwenden, wenn verschie¬ 
dene Bibliotheksmodule gleiche Bezeichner liefern. Dafür kann ein 
gesamtes Bibliotheksmodul importiert werden: 

"IMPORT" Modulname 

Der Zugriff auf die einzelnen Objekte erfolgt dadurch, daß dem 
jeweiligen Bezeichner der Modulname und ein Punkt vorangestellt 
werden. Auf diese Weise werden Namenskonflikte vermieden (qua¬ 
lifizierter Import). 

Beispiel: 

IMPORT InOut; 

FROM Terminal IMPORT WriteString, WriteLn; 

InOut.WriteString("Hier schreibt ’InOut’"); 

WriteString("Und hier 'Terminal'") 

Die beiden Importarten können beliebig gemischt werden. 
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6.3 Lokale Module 

Module können aber auch innerhalb des Deklarationsteil eines 
Blocks auftreten. Man spricht dann von einem lokalen Modul. Es 
ist nicht getrennt von seiner Umgebung übersetzbar. 

Deklaration: := 

Lokales-Modul}. 

Lokales-Modul::="MODULE" Modulname ”■/' [Import-Listen] 
[Export-Liste] 

Block Modulname 

Export-Liste:-"EXPORT" ["QUALIFIED"] Bezeichner 
{"/' Bezeichner} 

Folgende Besonderheiten sind festzuhalten: 

□ Ein lokales Modul endet mit einem Semikolon anstelle des 
sonst üblichen Punktes. 

□ Ein lokales Modul ohne Exportliste ist zwar möglich, aber kaum 
sinnvoll. 

□ Es kann ausschließlich Bezeichner aus seiner Umgebung 
importieren. Aus diesem Grund fällt die Konstruktion «FROM 
Modulname» bei den Importlisten weg. 

Je nachdem, ob das Schlüsselwort «QUALIFIED» vorhanden ist 
oder nicht, unterscheidet man zwischen qualifiziertem und nicht¬ 
qualifiziertem Export. 

Beim qualifizierten Export wird auf die exportierten Objekte 
zugegriffen, indem der Modulname gefolgt von einem Punkt dem 
jeweiligen Bezeichner vorangestellt wird. Dadurch werden 
Namenskollisionen automatisch vermieden. Andernfalls werden 
die aufgeführten Bezeichner unmittelbar zur Verfügung gestellt, 
das bedeutet, daß Modulname und Punkt wegfallen dürfen (jedoch 
nicht müssen!). 

Beispiel: 

MODULE LokalModulTest; 

FROM InOut IMPORT WriteString, WriteLn; 

MODULE LokalesModull; 

IMPORT WriteString, WriteLn; 


{Konstantenvereinbarung | Typendefinition | 
Variablendeklaration | Prozedurbeschreibung | 
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EXPORT Meldung; 

PROCEDURE Meldung; 

BEGIN 

WriteString("Hier ist das lokale Modul Nr.l"); 
WriteLn 
END Meldung; 

END LokalesModull; 

MODULE LokalesModul2; 

IMPORT WriteString, WriteLn; 

EXPORT QUALIFIED Meldung; 

PROCEDURE Meldung; 

BEGIN 

WriteString("Hier ist das lokale Modul Nr.2"); 
WriteLn 
END Meldung; 

END LokalesModul2; 

BEGIN 

Meldung; 

LokalesModull.Meldung; 

LokalesModul2.Meldung; 

END LokalModulTest. 


Probelauf: 

Hier ist das lokale Modul Nr.l 
Hier ist das lokale Modul Nr. 1 
Hier ist das lokale Modul Nr.2 

Da der Anweisungsteil eines lokalen Moduls automatisch vor der 
Programmausführung abgearbeitet wird, eignen sich lokale Module 
besonders für Initialisierungsaufgaben. 

Beispiel: 

Bei der Analyse von Texten ist es häufig nötig, ein Zeichen über das 
gerade gelesene vorauszuschauen. Dies kann am einfachsten 
dadurch erreicht werden, wenn ein Zeichen wieder in die Textdatei 
zurückgeschrieben werden kann. Hierfür eignet sich ein lokales 
Modul mit eigenem Gedächtnis in Form eines Puffers, der genau 
ein Zeichen Zwischenspeichern kann. Hat dieser Puffer den Wert 
0C, so ist er leer und kann bei Bedarf ein neues Zeichen auf¬ 
nehmen. 

Hier folgt ein kleines Programm, das mit Hilfe der gepufferten 
Eingabe den Quelltext eines Modula-2-Programms so kopiert, daß 
in der Kopie alle Kommentare entfernt sind. Das Vorausschauen 
wird benötigt, wenn das Zeichen ( gelesen wird. Ist das nächste 
Zeichen *, so beginnt ein Kommentar. Ebenfalls eine Vorausschau 
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wird beim Kommentarende benutzt, das durch die Zeichenfolge *) 
angezeigt wird. 

Der Tatsache, daß in Modula-2 Kommentare beliebig verschach¬ 
telt sein dürfen, tragen wir durch das Mitzählen der Kommentar¬ 
tiefe Rechnung. Hat diese den Wert Null, so liegt kein Kommentar 
vor, und das Zeichen kann ausgegeben werden. 


MODULE KommentarEntfernen; 

FROM InOut IMPORT Read, Write, WriteString, WriteLn, Done, 

Openlnput, OpenOutput, Closeinput, CloseOutput; 

VAR Zeichen, Naechstes : CHAR; 

KommentarTiefe : CARDINAL; 

MODULE GepuffertesLesen; (* Lokales Modul ■) 

IMPORT Read; (« Ist nicht automatisch bekannt! *) 

EXPORT ReadChar, PushBack; 

VAR Puffer : CHAR; 

PROCEDURE ReadChar(VAR C : CHAR); 

(* Falls der Puffer leer ist, wird ein Zeichen mit Read gelesen. 
Ansonsten wird das Zeichen des Puffers Ubergeben *) 

BEGIN 

IF Puffer=0C 
THEN Read(C) 

ELSE C:=Puffer; Puffer:=0C 
END 

END ReadChar; 

PROCEDURE PushBack(C : CHAR); 

(* Legt das Zeichen C im Puffer ab ») 

BEGIN 

Puffer:-C 
END PushBack; 

BEGIN (« Initialisierungsteil von GepuffertesLesen *) 

Puffer:-0C (» Puffer Ist leer *) 

END GepuffertesLesen; 

BEGIN (* KommentarEntfernen *) 

WriteString("Entfernen der Kommentare in einem Programmtext"); 
WriteLn; WriteLn; 

OpenInput("MOD"); 

IF NOT Done THEN WriteString("Keine Datei"); HALT END; 

OpenOutput(""); 

KommentarTiefe:=0; 

ReadChar(Zeichen); 

WHILE Done DO 

IF Zeichen-"(" (* Test auf Kommentaranfang *) 

THEN 

ReadChar(Naechstes); 

IF Naechstes-'»’ 

THEN INC(Kommentartiefe) 

ELSE PushBack(Naechstes) 
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END 

ELSIF Zeichen“'"*" (* Test auf Kommentarende *) 

THEN 

ReadChar(Naechstes); 

IF Naechstes=")" 

THEN DEC(KommentarTiefe) 

ELSE PushBack(Naechstes) 

END 

END; (« IF *•) 

IF KommentarTiefe=0 THEN Write(Zeichen) END; 

ReadChar(Zeichen) 

END; (« WHILE ") 

CloseOutput; 

Closeinput 

END KommentarEntfernen. 


Aufgaben: 

1. Studieren Sie die Unterlagen zu Ihrem Computerterminal, und 
schreiben Sie ein Bibliotheksmodul «Video», das folgende Routi¬ 
nen (Prozeduren) liefert: 


ClrScr 
gotoxy(X,Y : 
CARDINAL) 
EraEol 

EraEos 


- löscht den Bildschirm 

- setzt den Cursor (Schreibmarke) auf Spalte X 
und Zeile Y 

- löscht von der aktuellen Cursorposition bis 
zum Ende der Zeile 

- löscht von der aktuellen Cursorposition bis 
zum Rest des Bildschirms 


2. Das Programm «KommentarEntfernen» kann in eine Falle lau¬ 
fen, wenn die Zeichenfolgen (* oder *) in Zeichenketten auftre- 
ten. In einem solchen Fall wird irrtümlich die Kommentartiefe 
herauf- bzw. herabgesetzt. Ist es möglich, diesen Fehler mit 
wenig Aufwand zu beheben? 
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7 Selbstdefinierte Typen 


Aufbauend auf den Grundtypen, können in Modula-2 weitere 
Datentypen definiert werden. Dazu gibt es zwei Möglichkeiten: 

1. Die Typdefinition steht direkt bei der Variablen-Deklaration. 
Dann hat dieser Typ keinen eigenen Namen und heißt deshalb 
«anonym». 

2. Ein neuer Typ mit Angabe seines Namens wird definiert. Nach 
der Definition kann auf diesen Typ - unter Verwendung seines 
Namens - zugegriffen werden. 

Typdefinition::="TYPE" {TypName "=" Typ 

Typ : : = Grundtyp | Aufzählungstyp | Unterbereichstyp | Mengentyp | 

Feldtyp | Rekordtyp | Prozedurtyp | Zeigertyp. 


7.1 Aufzählungstyp 

Im einfachsten Fall wird ein neuer Typ dadurch geschaffen, daß 
sein Wertebereich vollständig aufgezählt wird. 

Aufzählungstyp::="(" Bezeichner Bezeichner} ")". 

Wenn wir beispielsweise einen Typ «Farbe» benötigen, so kann das 
mit folgender Typdefinition geschehen: 

TYPE Farbe = (rot, gruen, blau, gelb, schwarz, weiss); 

Mit dieser Definition wird nicht nur der Datentyp «Farbe» geschaf¬ 
fen. Gleichzeitig werden die Konstanten dieses Typs (rot, gruen, ... ) 
eingeführt. Mit der Reihenfolge der Aufzählung wird die Ordnung 
dieser Konstanten festgelegt. Es gilt also: 


rot < gruen < blau < gelb < schwarz < weiss 
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Innerhalb dieser Ordnung gilt die Nachfolger- und Vorgängerbezie¬ 
hung. Das bedeutet, daß «gruen» der Nachfolger von «rot» und der 
Vorgänger von «blau» ist. 

Der neu geschaffene Typ ist also genauso angeordnet wie die 
natürlichen Zahlen. Aus diesem Grund ist es auch möglich, die 
Ordnungszahl einer Konstanten zu bestimmen. Dabei ist die Ord¬ 
nungszahl der ersten Konstanten 0, die der zweiten 1 usw. 

Mit der Standardfunktion «ORD» kann man Auskunft über die 
Ordnungszahl erhalten. 

ORD(rot) -> 0 
ORD(gelb) -> 3 

Mit der obigen Typdefinition wurde also ein neuer Datentyp 
geschaffen, der sich wie die aufzählbaren Grundtypen CARDINAL, 
INTEGER, CHAR und BOOLEAN verhält. Auf ihn sind auch die 
Standardprozeduren INC und DEC anwendbar. 

Weitere Beispiele für Aufzählungstypen: 

TYPE Wahrheitswert = (wahr, falsch); 

Computerzubehoer = (Drucker, Plotter, Monitor, Maus, 
Joystick, Tastatur); 

DruckerStatus = (Busy, Ready, OutOfPaper); 

Vorspeisen = (Suppe, Salat, Schnecken); 

7.1.1 Eine Ampelsteuerung 

Als erstes Beispiel wollen wir eine einfache Verkehrsampel simu¬ 
lieren. Da Konstante von Aufzählungstypen (wie auch von BOO¬ 
LEAN) nicht direkt ein- und ausgegeben werden können, schreiben 
wir uns selbst eine entsprechende Ausgabeprozedur. 

MODÜLE Ampel; 

FROM InOut IMPORT WriteString, WriteLn; 

TYPE AmpelFarbe = (gruen, gelb, rot, rotgelb); 

VAR Ampel : AmpelFarbe; 

PROCEDDRE SchreibAmpelFarbe(Farbe : AmpelFarbe); 

BEGIN 

CASE Farbe OF 

gruen : WriteString("grün") 

| gelb : WriteString!"gelb") 

| rot : WriteString("rot ") 

| rotgelb : WriteString("rot und gelb") 

END (« CASE *) 

END SchreibAmpelFarbe; 
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BEGIN (« Ampel *) 

LOOP 

FOR Ampel:=gruen TO rotgelb DO SchrelbAmpelFarbe(Ampel); WriteLn END 
END (« LOOP «) 

END Ampel. 


Probelauf: 

grün 

gelb 

rot 

rot und gelb 

grün 

gelb 


Sie sehen, daß auch selbstdefinierte Aufzählungstypen in CASE- 
oder FOR-Anweisungen verwendet werden können. 

Aufgabe: Das Programm läuft in einer Endlosschleife. Ändern Sie 
es so ab, daß bei einem beliebigen Tastendruck die Schleife verlas¬ 
sen wird. 


7.1.2 Ein endlicher Automat 

Ein weites Feld der Computeranwendungen ist die Textverarbei¬ 
tung und -analyse. Als etwas ausführlicheres Anwendungsbeispiel 
werden wir später ein Programm entwickeln, das einen Modula-2- 
Programmtext so bearbeitet, daß die Schlüsselwörter fettgedruckt 
und die Zeilen mit Nummern versehen werden. Dabei müssen 
jedoch Stringkonstante und Ko mm entare speziell behandelt wer¬ 
den, da hier vorkommende Schlüsselwörter normal ausgegeben 
werden sollen. Als Vorübung dazu dient das folgende Programm, 
das aus einem Modula-2-Text alle Stringkonstanten extrahiert. 

Zur Lösung von Problemen dieser Art eignet sich die Methode 
der «endlichen Automaten». Dabei wird eine Maschine konstru¬ 
iert, die eine bestimmte Anzahl verschiedener Zustände annehmen 
kann. Je nach Zusammentreffen von Eingabedaten und Zustand 
werden dann Aktionen ausgelöst und/oder der Zustand geändert. 

Für unseren Automaten benötigen wir drei Zustände: 
«ZeichenLesen», «StringlLesen» und «String2Lesen». 
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Der Zustand «ZeichenLesen» soll der normale sein. Wenn jedoch 
ein Hochkomma gelesen wird, so zeigt das an, daß im Text eine 
Stringkonstante beginnt. In diesem Fall schalten wir in den 
Zustand «StringlLesen» um. In diesem Zustand verbleibt unser 
Automat so lange, bis das nächste Hochkomma gelesen wird. Erst 
dann wird wieder in den Zustand «ZeichenLesen» umgeschaltet. 
Auf diese Weise werden im Zustand «StringlLesen» ganz automa¬ 
tisch auch Gänsefüßchen als Bestandteile der Stringkonstante 
erkannt. Analog verfahren wir, wenn ein doppeltes Anführungszei¬ 
chen kommt. Hier wird in den Zustand «String2Lesen» umgeschal¬ 
tet und so lange darin verblieben, bis wieder ein doppeltes Anfüh¬ 
rungszeichen folgt. 

Der Vorteil des Automaten-Modells liegt u. a. darin, daß die 
Arbeitsweise in einer Tabelle dargestellt werden kann: 


Zustand 

geles. Zeichen 

Aktion 

neuer Zustand 

ZeichenLesen 

Hochkomma 

— 

StringlLesen 

ZeichenLesen 

Gänsefüßchen 

- 

String2Lesen 

ZeichenLesen 

andere 

- 

ZeichenLesen 

StringlLesen 

Hochkomma 

neue Zeile 
beginnen 

ZeichenLesen 

StringlLesen 

andere 

Zeichen 

ausgeben 

StringlLesen 

String2Lesen 

Gänsefüßchen 

neue Zeile 
beginnen 

ZeichenLesen 

String2Lesen 

andere 

Zeichen 

ausgeben 

String2Lesen 


MODULE StringExtrakt; 

FROM InOut IMPORT Openlnput, Closeinput, Done, Read, Write, WriteString, 
WriteLn; 

TYPE AutomatenZustand = (ZeichenLesen, StringlLesen, String2Lesen); 

VAR Zustand : AutomatenZustand; 

Zeichen : CHAR; 

BEGIN 

WriteLn; 

WriteString("String-Extrakt aus Modula-2-Programmtexten"); WriteLn; 

WriteString( "-"); WriteLn; 

WriteLn; 

OpenInput("MOD”); 

IF NOT Done THEN WriteString("Kein File!"); WriteLn; HALT END; 

Zustand:=ZeichenLesen; 

WriteString("Die String-Konstanten:"); WriteLn; 
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Read(Zeichen); 

WHILE Done DO 

CASE Zustand OF 

ZeichenLesen : IF Zeichen*’"' 

THEN Zustand:=StringlLesen 
ELSIF Zeichen*"’" 

THEN Zustand:=String2Lesen 
END 

| StringlLesen : IF Zeichen*”” 

THEN WriteLn; Zustand:=ZeichenLesen 
ELSE Write(Zeichen) 

END 

| String2Lesen : IF Zeichen*"’" 

THEN WriteLn; Zustand:=ZeichenLesen 
ELSE Write(Zeichen) 

END; 

END; (» CASE «) 

Read(Zeichen) 

END; (* WHILE *) 

Closeinput 
END StringExtrakt. 


Probelauf: 

String-Extrakt aus Modula-2-Programmtexten 
INPUT FROM: STRINGS 
Die String-Konstanten: 

String-Extrakt aus Modula-2-Programmtexten 

MOD 
Kein File! 

Die String-Konstanten: 


Der Einsatz von selbstdefinierten Aufzählungstypen bringt Klar¬ 
heit in Programme. In vielen anderen Programmiersprachen müß¬ 
ten die Zustände durch verschiedene Zahlen ausgedrückt werden. 

In einem weiteren Beispiel wollen wir wieder eine Textdatei 
analysieren. Nur sollen diesmal die einzelnen Wörter gezählt und 
die mittlere Wortlänge bestimmt werden. Als Wort soll dabei jede 
zusammenhängende Folge von Buchstaben gelten. Am Anfang 
eines Wortes wird die Wortzahl erhöht. Zur Bestimmung der mitt¬ 
leren Wortlänge müssen zudem alle Buchstaben gezählt werden. 
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Unser Automat benötigt für diese Aufgabe nur zwei Zustände: 
Zustand geles. Zeichen Aktion neuer Zustand 


ZeichenLesen 

ZeichenLesen 

WortLesen 

WortLesen 


kein Buchstabe 
Buchstabe 

Buchstabe 
kein Buchstabe 


WortZahl erh 
Buchstaben¬ 
zahl erh. 
Buchstaben- 
Zahl erh. 


ZeichenLesen 

WortLesen 

WortLesen 

ZeichenLesen 


Die mittlere Wortlänge ist der Quotient aus BuchstabenZahl und 
WortZahl. Die Ausgabe des Ergebnisses wird über die schon 
bekannte Prozedur «SchreibQuotient» abgewickelt. 


MODULE WortLaenge; 

FROM InOut IMPORT Openlnput, Closeinput, Done, Read, Write, WriteString, 
WriteLn, WriteCard; 

TYPE AutomatenZustand = (ZeichenLesen, WortLesen); 

VAR Zustand : AutomatenZustand; 

Zeichen : CHAR; 

WortZahl, BuchstabenZahl : CARDINAL; 

PROCEDURE SchreibQuotient(Dividend, Divisor, Feld, Stellen : CARDINAL); 
VAR i, Rest : CARDINAL; 

BEGIN 

WriteCard(Dividend DIV Divisor,Feld-Stellen-l); 

Write(’.’); 

Rest:=Dividend MOD Divisor; 

FOR i:=1 TO Stellen DO 
Dividend:=10"Rest; 

WriteCard(Dividend DIV Divisor,1); 

Rest:“Dividend MOD Divisor 
END (* FOR ••) 

END SchreibQuotient; 

BEGIN 

WriteLn; 

WriteString("Bestimmung der mittleren Wortlänge in Texten"); WriteLn; 

WriteString( "-"); WriteLn; 

WriteLn; 

Openlnput("MOD" ); 

IF NOT Done THEN WriteString("Kein File!"); WriteLn; HALT END; 

WortZahl:=0; BuchstabenZahl:=0; 

Zustand:“ZeichenLesen; 

Read(Zeichen); 

WHILE Done DO 
CASE Zustand 0F 

ZeichenLesen : IF (CAP(Zeichen)>-"A") AND (CAP(Zeichen)<-”Z") 

THEN 

INC(WortZahl); 

INC(BuchstabenZahl); 

Zustand:“WortLesen; 

END 
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| WortLesen : IF (CAP(Zeichen)>«"A") AND (CAP(Zeichen)<-"Z") 
THEN INC(BuchstabenZahl) 

ELSE 2ustand:=ZeichenLesen 
END 

END; (* CASE *) 

Read(Zeichen) 

END; (" WHILE *) 

Closeinput; 

WriteString("Es wurden insgesamt "); WriteCard(WortZahl,1); 
WriteString(" Wörter gelesen."); WriteLn; 

WriteString("Zahl der Buchstaben: "); 

WriteCard(BuchstabenZahl,1); 

IF WortZahl>0 
THEN 

WriteString("Mittlere Wortlänge: "); 

SchreibQuotient(BuchstabenZahl.WortZahl,5,2); 

WriteLn 

END 

END WortLaengen. 


Testlauf: 

Bestimmung der mittleren Wortlänge in Texten 

INPUT FROM Wortlaengen 

Es wurden insgesamt 176 Wörter gelesen. 

Zahl der Buchstaben: 1106 
Mittlere Wortlänge: 6.28 

Aufgaben: 

1. Schreiben Sie ein Programm, das einen Programmtext kopiert 
und dabei alle Buchstaben außerhalb von Stringkonstanten in 
Großbuchstaben umwandelt. 

2. Aus welchem Grund ist im Programm «WortLaengen» die 
Anweisung «IF WortZahl > 0» notwendig? 

3. Geben Sie einen Automaten an, der eine INTEGER-Zahl auf 
korrekte Syntax prüft. Tip: INTEGER-Zahl: :=["+" |"-"]Zif- 
fernFolge 

4. Was sind die Werte von "MAX(Farbe)" und "MIN(Farbe)"? 

7.2 Unterbereichstypen 

Erinnern Sie sich noch an die Programmierregel, immer den knap- 
pesten Typ für eine bestimmte Aufgabe zu wählen? Bislang war nur 
eine Auswahl zwischen CARDINAL und INTEGER möglich. Die¬ 
ses Raster ist in den meisten Anwendungsfällen aber immer noch 
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viel zu grob. Oft kommt es vor, daß bestimmte Größen nur inner¬ 
halb eines genau festgelegten Bereichs liegen dürfen. Genau für 
diesen Zweck gibt es in Modula-2 die Unterbereichstypen. 

Unterbereichstyp: Konstantei Konstante! "]". 

Unterbereiche können nur von aufzählbaren Typen gebildet wer¬ 
den. Das sind - um es nochmals zu wiederholen - CARDINAL, 
INTEGER, CHAR, BOOLEAN und selbstdefinierte Aufzählungsty¬ 
pen. Auch die Unterbereiche gehören zu den aufzählbaren Typen. 
Anstelle der Konstanten dürfen selbstverständlich wieder kon¬ 
stante Ausdrücke treten. 


Beispiele: 


TYPE Tag - [1..31]J 
Monat = [1..12]; 

Großbuchstaben = ["A".."Z"]; 

Wochentag = (Montag, Dienstag, Mittwoch, Donnerstag, Freitag, 

Samstag, Sonntag); (» Selbstdef. Aufzählungstyp *) 
Arbeitstag = [Montag..Freitag]; (* Unterbereich von Wochentag ») 

Wochenende = [Samstag..Sonntag]; (* dto. *) 
WochenendeFuerStudenten = [Donnerstag..Sonntag]; (» dto *) 


Eine ähnliche Schreibweise haben wir bereits bei der CASE-Anwei¬ 
sung kennengelernt. «Konstantei..Konstante!» beinhaltet alle 
Werte von «Konstantei» (eingeschlossen) bis «Konstante!» (einge¬ 
schlossen). «Konstantei» muß kleiner oder gleich «Konstante!» 
sein. Unzulässig ist demnach [«Z»..»A«]. Anstelle der Konstanten 
dürfen auch konstante Ausdrücke stehen, wie [2 ..10000 DIV 127]. 

Normalerweise wird der dem Unterbereich zugrundeliegende 
Typ (Basistyp) automatisch anhand der Konstanten bestimmt. Ein¬ 
zig bei dem Bereich, der von CARDINAL- und INTEGER-Zahlen 
gemeinsam abgedeckt wird (O..MAX(INTEGER)), kann eine Basis¬ 
typ-Spezifikation vorgenommen werden. Soll der Unterbereich 
vom Typ INTEGER sein, so wird dem Unterbereich das Wort 
«INTEGER» vorangestellt: 

TYPE KleineZahlen = INTEGER] 1..10]; 

Für Unterbereiche sind alle Operatoren des entsprechenden Basis¬ 
typs zulässig.Der Einsatz von Unterbereichstypen ist aus zwei 
Gründen vorteilhaft: 
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1. Das Festlegen zulässiger Bereiche schafft Klarheit innerhalb des 
Programms. 

2. Die Angabe möglichst knapper Bereiche gibt dem Modular¬ 
system die Möglichkeit, bei der Fehlersuche in Programmen zu 
helfen. 

Gerade der zweite Punkt ist für die Programmierpraxis von hervor¬ 
ragender Bedeutung. Denn das «Über-die-Grenze-Laufen» von 
Variablen ist eine der häufigsten Fehlerursachen in Programmen. 
Aus diesem Grund wollen wir ein kleines Testprogramm schrei¬ 
ben, das einen solchen Fehler simuliert, und die Reaktion des 
jeweiligen Modula-2-Systems kennenlernen. 


MODULE UnterbereichsTest; 

TYPE ZahlBisHundert = [0..100]; 

VAR KleineZahl : ZahlBisHundert; 

BEGIN 

KleineZahl:“0; 

WHILE KleineZahl<200 DO INC(KleineZahl) END 
END UnterbereichsTest. 


Dieses Programm wird ohne Fehlermeldung übersetzt. Erst wenn 
das Programm gestartet wird, tritt beim 101. Schleifendurchlauf 
ein illegaler Zustand ein. Hier sollte das Programm mit einer 
Fehlermeldung wie «OUT OF RANGE ERROR AT 02A3B»abge- 
brochen werden. Da der Fehler «Bereichsüberschreitung» erst dann 
auftritt, wenn das Programm abläuft, spricht man von einem Lauf¬ 
zeitfehler (engl, runtime error). Ähnliche Fehler sind «Division 
durch 0» oder «Speicherüberlauf». 

In jedem Modula-2-System sollte die Möglichkeit bestehen, auf¬ 
grund der zusätzlichen Angaben der Fehlermeldung (AT 02A3B) die 
Stelle im Programmtext zu lokalisieren, an der der Fehler auftrat. 
Das Werkzeug hierfür heißt «Debugger» ( Entwanzer, Wanze = 
Fehler im Programm); seine Handhabung ist von Compiler zu 
Compiler verschieden. Sie sollten sich unbedingt mit diesem Hilfs¬ 
programm vertraut machen, denn das Entwanzen umfangreicher 
Programme bedarf oft mehr Zeit und Energie als die gesamte 
Programmentwicklung. 

Die Bereichsüberwachung kostet natürlich Rechenzeit. Deshalb 
ist es durchaus sinnvoll, bei fertig getesteten Programmen, bei 
denen es auf höchste Ablaufgeschwindigkeit ankommt, darauf zu 
verzichten. Diese Möglichkeit ist bei jedem mir bekannten 
Modula-2-System gegeben. 
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Man kann sich vorstellen, daß jeder Compiler über eine Reihe 
von Ein/Aus-Schaltern verfügt. Mit diesen Schaltern kann die 
Arbeitsweise des Compilers gezielt beeinflußt werden. Standard¬ 
mäßig sind sie meist so gesetzt, daß die von Compiler und Laufzeit¬ 
system erkennbaren Fehler angezeigt werden und zu einem Pro¬ 
grammabbruch führen. Bei Bedarf können diese Schalter (engl. 
Compiler switches) umgestellt werden. Auch hier unterscheidet 
sich die Vorgehensweise je nach Compiler. 

Bei einem Teil werden die benötigten Angaben in Form speziell 
gekennzeichneter Kommentare (wie (*$R+ ... ) direkt in den Quell¬ 
text eingegeben. Das hat einerseits den Vorteil, Teilbereiche des 
Programms mit unterschiedlichen Schalterstellungen versehen zu 
können. Der Nachteil liegt darin, daß bei langen Programmtexten 
oft eine Compileranweisung, wie die Schalter auch genannt wer¬ 
den, übersehen wird. 

Eine andere Möglichkeit besteht darin, die entsprechenden 
Schalterstellungen beim Aufruf des Compilers anzugeben (M2 
TEST.MOD /R+). Diese wirken dann für das gesamte Programm. 
Es ist wichtig, mit den Möglichkeiten der Compiler-Beeinflussung 
umgehen zu lernen. Das gilt besonders für die Fehlersuche, denn 
oft können noch zusätzliche Hilfen wie «Programmunterbrechung 
zu jedem Zeitpunkt» (letzte Rettung aus Endlosschleifen) einge¬ 
schaltet werden. 

Aufgabe: Setzen Sie bei Ihrem Modula-2-Compiler die Schalter so, 
daß das obige Programm ohne Fehlermeldung abläuft. 


7.3 Mengen 

Die Mengenlehre ist eine formale Sprache, mit der sich die gesamte 
Mathematik darstellen läßt. Gegenüber so mächtigen Konstruktio¬ 
nen wie «unendliche Mengen» oder «Mengen von Mengen», 
nimmt sich der Teilbereich der Mengenlehre, den Modula-2 bietet, 
sehr bescheiden aus. Die wichtigsten Einschränkungen sind: 

□ Mengen können nur von aufzählbaren Typen gebildet werden. 

□ Die maximale Anzahl der Elemente einer Menge ist stark 
beschränkt (meist auf 16 oder 32). 

Trotzdem lohnt sich die Beschäftigung mit Mengen in Modula-2, 
weil dadurch einerseits ganz elegante Programmsteuerungen mög- 
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lieh werden, andererseits die Arbeit mit Mengen vom Computer 
sehr schnell erledigt werden kann. 

Mengentyp: :="SET" "OF" AufzählbarerTyp. 

Als Typ sind nur aufzählbare Typen zugelassen, die weniger als 
MaxElement verschiedene Werte annehmen können. Zudem muß 
sichergestellt werden, daß die Ordinalwerte im Bereich von 0 bis 
MaxElement hegen. Als Werte eines Mengentyps kommen alle 
möglichen Teilmengen in Frage, auch die leere Menge, die kein 
Element enthält. 


Beispiele: 

TYPE KleineZahlenMenge « SET OF [0..15]; 

FarbenPalette = SET pF (rot, gruen, blau, gelb, schwarz weiss); 
oder SET OF Farbe; 

Optionen = (Fettdruck, Zeilennummern, Kommentare, Umlaute); 
Steuerung = SET OF Optionen; 

Nicht zugelassen sind folgende Mengenkonstruktionen: 


TYPE GrosseZahlenMenge = SET OF [0..500]; 
Vokale - SET OF CHAk; 

Intervall = SET OF [0.0..1.0]; 


7.3.1 Mengenkonstante 

Mengen-Konstante::=[Typname] [Element] Element} "}". 
Element::=Konstante | Konstantei".."Konstante!. 

Die Konstanten müssen vom Grundtyp der Menge sein. «Konstan¬ 
tei..Konstante!» ist eine Abkürzung für alle Werte von «Kon¬ 
stante 1» bis «Konstante!». Mengenkonstanten können auch im 
Deklarationsteil vereinbart werden. 

Beispiele: 

CONST Grundfarben = FarbenPalette{rot, gruen, blau); 

GeradeZahlen = KleineZahlenMenge}!,4,6,8,10,1!,14} ; 
NormalEinstellung = Steuerung}}; 

Auch innerhalb eines Anweisungsteils wird der Mengentyp voran¬ 
gestellt. Selbstverständlich kann für Variable von Mengentypen die 
Zuweisung verwendet werden. 
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Beispiele: 

VAR Palette : FarbenPalette; 

UngeradeZahlen : KleineZahlenMenge; 

Programmsteuerung : Steuerung; 

BEGIN 

Palette:»FarbenPalette{schwarz, weiss); 

UngeradeZahlen:“KleineZahlenMenge{ 1,3,5,7,9,11,13,15); 
Programmsteuerung:«Steuerung!Fettdruck, ZellenNummern); 


7.3.2 Operationen mit Mengen 

Der wichtigste Operator für Mengen ist «IN», der darüber Aus¬ 
kunft gibt, ob ein Wert in einer Menge enthalten ist oder nicht: 

Ausdruck IN Menge 

Das Ergebnis dieser Operation ist vom Typ BOOLEAN. Aus diesem 
Grund wird der IN-Operator auch zu den relationalen Operatoren 
gerechnet. 

Beispiele: 

rot IN Palette <-> FALSE 

2*6 IN GeradeZahlen <-> TRUE 

Fettdruck IN NormalEinstellung <-> FALSE 

Mit den relationalen Operatoren =, <> oder #, <= und >= 

können Gleichheit, Ungleichheit und Teilmengenbeziehung 
geprüft werden (A und B sind Mengen): 


Operator Bedeutung 


A = B Beide Mengen enthalten dieselben Elemente. 

A <> B Beide Mengen unterscheiden sich um mindestens ein 
Element. 

A <= B Alle Elemente von A sind auch in B enthalten. 

A >= B Alle Elemente von B sind auch in A enthalten. 


Zur Bildung von Durchschnitt, Vereinigung und Differenz werden 
die Operatoren *, +, - und / verwendet. Das Ergebnis der Opera¬ 
tion ist wieder eine Menge: 
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Operator Ergebnis 


A * B Alle Elemente, die sowohl A als auch B enthalten. 

A + B Alle Elemente, die in A oder B (oder beiden) sind. 

A - B Alle Elemente, die zwar in A, nicht aber in B sind. 

A / B Alle Elemente, die entweder in A oder in B sind, aber 

nicht in beiden Mengen. 


Beispiele: 

VAR Palette, Palette!., Palette2 : FarbenPalette; 

BEGIN 

Palettel:=FarbenPalette{rot, gruen, schwarz, weiss}; 
Palette2:=FarbenPalette(£ruen, gelb, blau, schwarz); 
Palette:=Palettel * Palette2; 

(* ergibt (gruen,schwarz) ») 

Palette:=Palettel + Palette2; 

(“ ergibt (rot,gruen,gelb,blau,schwarz,weiss) *) 
Palette:=Palettel - Palette2; 

(* ergibt (rot,weiss) **) 

Palette:=Palettel / Palette2; 

(* ergibt {rot.gelb.blau,weiss) *) 


7.3.3 Standardprozeduren für Mengen 

Wie gesehen, können in Mengenkonstanten keine Variablen oder 
Ausdrücke auftreten. Um solche in eine Menge ein- oder auszu¬ 
schließen, gibt es die Standardprozeduren «INCL» und «EXCL». 

INCL(Menge,Ausdruck) schließt den Wert des Ausdrucks in 
Menge ein. Im Anschluß an diese Anweisung würde «Ausdruck IN 
Menge» den Wert «TRUE» ergeben. 

EXCLfMenge,Ausdruck) entfernt - falls vorhanden - den Wert 
des Ausdrucks aus der Menge. Eine folgende Auswertung mit 
«Ausdruck IN Menge» würde das Resultat «FALSE» ergeben. 

Beispiele: 

INCL(Palettel,blau); 

(* ergibt {rot,gruen,blau,schwarz,weiss} *) 

EXCLfPalettel, weiss); 

(* ergibt {rot,gruen,blau,schwarz] *) 
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7.3.4 Programmlister mit Optionen 

Im folgenden Beispiel wird eine Menge zur Steuerung eines Pro¬ 
gramms eingesetzt. Das Programm gibt einen Modula-2-Quelltext 
in eine Datei aus. Dabei kann vom Anwender eine beliebige Kom¬ 
bination aus folgenden Optionen ausgewählt werden: 

Z : Die Zeilen werden mit Nummern versehen. 

S : Nach 60 Programmzeilen findet ein Seitenumbruch 
statt. 

U : Umlaute werden umgewandelt. 

A : Modula-2-Abkürzungen werden ausgeschrieben. 

Die Auswahl geschieht dadurch, daß der Anwender einfach die 
entsprechenden Kennbuchstaben der gewünschten Optionen ein¬ 
gibt. 


MODÜLE ListerMitOptionen; 

FROM InOut IMPORT Openlnput, OpenOutput, Closeinput, CloseOutput, 

EOL, Done, Read, Write, WriteLn, WriteString, 

WriteCard; 

(* EOL kann unter Umständen im Modul 'ASCII’ versteckt sein *) 

CONST ZeilenProSeite = 60; 

TYPE AusgabeOptionen = (ZeilenNummern, SeitenFormatierung, 

UmlautUmwandlung, Abkuerzungen); 

OptionenMenge = SET OF AusgabeOptionen; 

VAR Zeilen, Seiten : CARDINAL; 

Zeichen : CHAR; 

OptionenAuswahl : OptionenMenge; 

PROCEDURE LiesOptionen!VAR Auswahl : OptionenMenge); 

VAR Eingabe : CHAR; 

BEGIN 

WriteString!"Folgende Möglichkeiten stehen zur Verfügung:"); WriteLn; 
WriteLn; 

WriteString!" Z : Zeilen werden mit Nummern versehen"); WriteLn; 
WriteString!" S : Text wird seitenweise formatiert"); WriteLn; 
WriteString!" U : Umlaute werden nach ASCII umgewandelt"); WriteLn; 
WriteString!" A : Modula-2 Abkürzungen werden ausgeschrieben"); 
WriteLn; WriteLn; 

WriteString!"Ihre Auswahl (Z, ZS, UA ... ZSUA) : "); 

Auswahl:=OptionenMenge( ); 

REPEAT 

Read(Eingabe); Eingabe:=CAP(Eingabe); 

CASE Eingabe OF 

"Z" : INCL(Auswahl.ZeilenNummern) 

] "S" : INCL(Auswahl,SeitenFormatierung) 

| "U" : INCL(Auswahl,UmlautUmwandlung) 
j "A" : INCL(Auswahl,Abkuerzungen) 
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| EOL : 

ELSE Write(07C) 

END (* CASE ») 

UNTIL Eingabe=EOL; 

WriteLn 

END LIesOptionen; 

PROCEDÜRE NeueSeite(VAR Seitenzahl : CARDINAL); 

CONST FormFeed = 14C; (» Bewirkt einen Seitenvorschub *) 

BEGIN 

IF SeitenZahl>0 THEN Write(FormFeed) END; 

INC(Seitenzahl); 

WriteString("Seite "); WriteCard(Seitenzahl,1); WriteLn; 

WriteLn 
END NeueSeite; 

PROCEDÜRE NeueZeile(VAR ZeilenZahl : CARDINAL); 

BEGIN 

WriteCard(ZeilenZahl,4); 

... 

END NeueZeile; 

BEGIN 

WriteString("Formatierte Ausgabe eines Modula-2-Quelltextes"); WriteLn; 
WriteLn; 

LiesOptionen(OptionenAuswahl); 

OpenInput("MOD"); 

IF NOT Done THEN WriteString("Datei nicht vorhanden!"); HALT END; 
WriteLn; 

OpenOutput("LST"); 

IF NOT Done THEN WriteStping("Illegale Ausgabedatei!"); HALT END; 
Zeilen:=0; Seiten:=0; 

Zeichen:=E0L; 

WHILE Done DO 
CASE Zeichen OF 
"S","0","U", 

"ä", "ö" ,"U","ß" : IF UmlautUmwandlung IN OptionenAuswahl 
THEN 

CASE Zeichen OF 

"K" : WriteString("Ae") 

| "ü" ; WriteString("Oe") 

| "ü" : WriteString("Ue") 
j "ä" : WriteString("ae") 

| ”ö" : WriteString("oe") 

| "U" : WriteString("ue") 
j "ß" : WriteString("ss") 

END (» CASE **) 

ELSE Write(Zeichen) 

END 

| : IF Abkuerzungen IN OptionenAuswahl 

THEN 

CASE Zeichen OF 

: WriteString(" AND ") 

| : WriteString(" NOT ") 

| : WriteString("<>") 

END (* CASE ») 

ELSE Write(Zeichen) 

END; 

] EOL : IF Zeilen>0 THEN WriteLn END; 

IF (SeitenFormatierung IN OptionenAuswahl) AND 
(Zeilen MOD ZeilenProSeite = 0) 

THEN NeueSeite(Seiten) 

END; 
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INC(Zeilen); 

IF ZeilenNummern IN OptionenAuswahl 
THEN NeueZeile(Zeilen) 

END 

ELSE Write(Zeichen) 

END; (*• CASE *) 

Read(Zeichen) 

END; (* WHILE Done *) 

Closeinput; 

CloseOutput 

END ListerMltOptionen. 


Probelauf: 

Formatierte Ausgabe eines Modula-2-Quelltextes 

Folgende Möglichkeiten stehen zur Verfügung: 

Z : Zeilen werden mit Nummern versehen 
S : Text wird seitenweise formatiert 
U : Umlaute werden nach ASCII umgewandelt 
A : Modula-2-Abkürzungen werden ausgeschrieben 

Auswahl (Z, ZS, UA ... ZSUA) : ZS 

INPUT FROM: LISTER 
OUTPUT TO: CON: 


Seite 1 


1:M0DULE ListerMltOptionen; 

2: 

3: FROM InOut IMPORT Openlnput, OpenOutput, Closeinput, CloseOutput, 
4: EOL, Done, Read, Write, WriteLn, WriteString, 

5: WriteCard; 

6: (* EOL kann unter Umständen im Modul 'ASCII’ versteckt sein ») 


9 

10 

11 

12 


CONST ZeilenProSeite = 60; 

TYPE Ausgabeoptionen = (ZeilenNummern, SeitenFormatierung, 

UmlautUmwandlung, Abkuerzungen); 
OptionenMenge = SET 0F Ausgabeoptionen; 
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7.3.5 Der Standardtyp BITSET 

Mit «BITSET» gibt es in Modula-2 bereits eine vordefinierte 
Menge. Ihre Elemente sind alle CARDINAL-Zahlen bis n-1, wobei 
n die Wortbreite des Prozessors ist, auf dem das Modula-2-System 
läuft. Aus diesem Grund ist «BITSET» implementationsabhängig. 

Bei Konstanten vom Typ «BITSET» kann die Typangabe weggelas¬ 
sen werden. 

Beispiel: 

CONST KleinePrimZahlen = {2,3,5,7,11,13} 

(* ist vom Typ BITSET *) 

Selbstverständlich sind für «BITSET» alle Mengenoperatoren 
erlaubt. Das Interessante an «BITSET» ist jedoch, daß Werte dieses 
Typs üblicherweise genausoviel Speicherplatz benötigen wie Werte 
von CARDINAL und INTEGER (immer ein Prozessorwort). Die 
Elemente von Mengen werden grundsätzlich durch einzelne Bits 
repräsentiert. Ist ein Element in einer Menge enthalten, so ist das 
entsprechende Bit gesetzt (1), ansonsten nicht (0). Somit kann über 
«BITSET» auch auf die kleinsten Informationseinheiten zugegrif¬ 
fen werden. Beispielsweise können mit Hilfe des Re-Typings nun 
problemlos CARDINAL-Zahlen bitweise manipuliert werden. 

Zu diesem Zweck schreiben wir ein eigenes Bibliotheksmodul, 
das alle wichtigen Operationen liefert. Hier der Definitionsteil: 

DEFINITION MODULE BITS; 

(* Liefert Operationen, die CARDINAL-Zahlen bitweise manipulieren *) 

(* Bei älteren System muß hier die EXPORT-Liste stehen: 

EXPORT QUALIFIED MaxBits, BitPos, BitAnd, BitOr ... «) 

CONST MaxBits =15; (* Wortbreite-1 des Prozessors ") 

TYPE BitPos = CARDINAL[0..MaxBits]; 

PROCEDURE BitAnd(A,B : CARDINAL):CARDINAL; 

(* Funktion, liefert A AND B *) 

PROCEDURE BitOr(A,B : CARDINAL):CARDINAL; 

(* Funktion, liefert A OR B *) 

PROCEDURE BitXor(A,B : CARDINAL):CARDINAL; 

(<• Funktion, liefert A XOR B *) 

PROCEDURE SetBit(n : BitPos; VAR A : CARDINAL); 

(* Prozedur, setzt das n-te Bit von A *) 

PROCEDURE ClrBit(n : BitPos; VAR A : CARDINAL); 

(* Prozedur, löscht das n-te Bit von A *) 
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PROCEDURE TogBit(n : BitPos; VAR A : CARDINAL); 

(* Prozedur, schaltet daS n-te Bit von A um *) 

PROCEDURE BitSet(n : BitPos; A : CARDINAL):BOOLEAN; 

(* Funktion, ergibt TRUE, wenn das n-te Bit gesetzt ist, sonst FALSE 

PROCEDURE SHL(VAR A : CARDINAL; n : BitPos); 

(* Linksschieben um n Bits *) 

PROCEDURE SHR(VAR A : CARDINAL; n : BitPos); 

(» Rechtsschieben um n Bits *) 

END BITS. 

Solche Operationen sind dann von großer Wichtigkeit, wenn ein 
Computer Steueraufgaben übernehmen muß. Dann werden durch 
einzelne Bits bestimmte externe Aktionen ausgelöst. Alle Bit- 
Prozeduren, mit Ausnahme von «SHL» (Linksschieben) und «SHR» 
(Rechtsschieben), werden mit Mengenoperationen realisiert. Erin¬ 
nern Sie sich bitte daran, daß mit 

BITSET(CardinalZahl) 

die «CardinalZahl» nur als «BITSET» interpretiert wird. Hier geht 
das Konzept des Re-Typing weit über eine Typumwandlung hin¬ 
aus, denn zwischen Zahlen und Mengen von Zahlen liegen eigent¬ 
lich Welten. 


IMPLEMENTATION MODULE BITS; 

PROCEDURE BitAnd(A,B : CARDINAL) : CARDINAL; 
BEGIN 

RETURN CARDINAL(BITSET(A) * BITSET(B)) 

END BitAnd; 

PROCEDURE BitOr(A,B : CARDINAL) : CARDINAL; 
BEGIN 

RETURN CARDINAL(BITSET(A) + BITSET(B)) 

END BitOr; 

PROCEDURE BitXor(A,B : CARDINAL) : CARDINAL; 
BEGIN 

RETURN CARDINAL(BITSET(A) / BITSET(B)) 

END BitXor; 

PROCEDURE SetBit(n : BitPos; VAR A : CARDINAL); 
VAR T : BITSET; 

BEGIN 

T:=BITSET(A); 

INCL(T.n); 

A: =CARDINAL(T) 

END SetBIt; 
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PROCEDURE ClrBit(n : BitPoS; VAR A : CARDINAL); 

VAR T : BITSET; 

BEGIN 

T:=BITSET(A); 

EXCL(T,n); 

A:“CARDINAL(T) 

END ClrBit; 

PROCEDDRE TogBit(n : BitPos; VAR A : CARDINAL); 

VAR T : BITSET; 

BEGIN 

T:=BITSET(A); 

IF n IN T 
THEN EXCL(T,n) 

ELSE INCL(T,n) 

END; 

A:=CARDINAL(T) 

END TogBit; 

PROCEDURE BitSet(n : BitPos; A : CARDINAL) : BOOLEAN; 
BEGIN 

RETURN n IN BITSET(A) 

END BitSet; 


PROCEDURE SHL(VAR A : CARDINAL; n : BitPos); 

BEGIN 

WHILE n>0 DO ClrBit(MaxBits,A); A:=A“2; DEC(n) END 
END SHL; 


PROCEDURE SHR(VAR A : CARDINAL; n : BitPos); 
BEGIN 

WHILE n>0 DO A:=A DIV 2; DEC(n) END 
END SHR; 


END BITS. 


Zur Demonstration der Bit-Operationen folgt nun ein etwas 
umfangreicheres Programm, das die Arbeitsweise eines Mikropro¬ 
zessors simuliert. Um die internen Vorgänge besser sichtbar zu 
machen, werden die Zahlen im Dualsystem ausgegeben. Die Proze¬ 
dur «SchreibDual» testet der Reihe nach alle Bits einer CARDI- 
NAL-Zahl durch und schreibt 1 oder 0, je nachdem, ob ein Bit 
gesetzt ist oder nicht. 

Das Hauptprogramm läuft in einer Schleife. Mit einfachen Befeh¬ 
len können auf das Ergebnis weitere Operationen angewandt 
werden. 


MODULE BitTest; 

FROM InOut IMPORT ReadCard, WriteCard, Writelnt, 

WriteLn, WriteString, Write, Read; 

FROM BITS IMPORT MaxBits, BitPos, BitAnd, BitOr, BitXor, 

SetBit, ClrBit, TogBit, BitSet, SHL, SHR; 
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VAR A,B,n : CARDINAL; 

Befehl : CHAR; 

PROCEDÜRE SchreibDual(X : CARDINAL); 

VAR 1 : BltPos; 

BEGIN 

FOR i:=MaxBits TO 0 BY -1 DO 
IF BitSet(i.X) 

THEN Write("l") 

ELSE Write("0") 

END (» IF <*) 

END (* FOR *) 

END SchrelhDual; 

PROCEDÜRE Befehlsüebersicht; 

BEGIN 

WriteLn; 

WriteString("Das Programm simuliert die Dualarithmetik eines "); 
WriteString("Mikroprozessors."); WriteLn; WriteLn; 

WriteStrlng("Die Befehle werden in der Form ’>Befehl Argument’ "); 
WriteString("eingegeben."); WriteLn; WriteLn; 

WriteString("Folgende Befehle stehen zur Verfügung:"); WriteLn; 
WriteString(" A CARDINAL -> bitweises AND"); WriteLn; 

WriteString(" 0 CARDINAL -> bitweises OR"); WriteLn; 

WriteString(" X CARDINAL -> bitweises XOR"); WriteLn; 

WriteString(" Sn -> setzt das n-te Bit"); WriteLn; 

WriteString(" C n -> löscht das n-te Bit"); WriteLn; 

WriteString(" Tn -> schaltet das n-te Bit um"); WriteLn; 

WriteString(" Ln -> Linksschieben um n Bits"); WriteLn; 

WriteString(" Rn -> Rechtsschieben um n Bits"); WriteLn; 

WriteString(" B n -> testet das n-te Bit"); WriteLn; 

WriteString(" ? -> bringt diese Übersicht"); WriteLn; 

WriteString(" Q -> beendet das Programm"); WriteLn; 

WriteLn 

END Befehlsüebersicht; 

BEGIN 

WriteString("Demonstration der Bit-Operationen"); WriteLn; 

WriteString( "-"); WriteLn; 

Befehlsüebersicht; 

A: =0; 

REPEAT 

WriteString("= "); SchreibDual(A); 

WriteString(" CARD: "); WriteCard(A,6); 

WriteString(" INT: "); Writelnt(INTEGER(A),7); 

WriteString(" >"); 

Read(Befehl); Befehl:=CAP(Befehl); ReadCard(B); 

CASE Befehl OF 

"A","0","X" : CASE Befehl OF 

"A" : A:=BitAnd(A,B) 

| "0" : A:=BitOr(A,B) 
j "X" : A:=BitXor(A,B) 

END; (* CASE «) 

Write(Befehl); Write(" "); 

SchreibDual(B) 

i iig m ng» > "T" , 

"L","R" : IF B<=MaxBits 

THEN 
n:=B; 

CASE Befehl OF 
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"S" : SetBit(n,A) 

| "C" : ClrBit(n.A) 

| "T H : TogBit(n.A) 
j "L" : SHL(A.n) 

| "R" : SHR(A,n) 

END; (« CASE ») 

ELSE WriteString("Argument zu groß!") 
END 

| "B" : IF B<=MaxBits 

THEN 
n: =B; 

IF BitSet(n,A) 

THEN WriteString( " TRUE") 

ELSE WriteString(" FALSE") 

END 

ELSE WriteString("Argument zu groß!") 
END 

| "?" : BefehlsUebersicht 

| "Q" : 

ELSE WriteString("???") 

END; (« CASE ») 

WriteLn 

UNTIL Befehl="Q" 

END BitTest. 


Testlauf: 


Demonstration der Bit-Operationen 


Das Programm simuliert die Dualarithmetik eines Mikroprozessors. 
Die Befehle werden in der Form ’>Befehl Argument’ eingegeben. 


Folgende Befehle stehen zur Verfügung: 
A CARDINAL -> bitweises AND 
0 CARDINAL -> bitweises OR 
X CARDINAL -> bitweises XOR 
Sn -> setzt das n-te Bit 

C n -> löscht das n-te Bit 


Tn -> schaltet das n-te Bit um 

Ln -> Linksschieben um n Bits 

Rn -> Rechtsschieben um n Bits 

B n -> testet das n-te Bit 

? -> bringt diese Übersicht 

Q -> beendet daä Programm 


= 

0000000000000000 

CARD: 

0 

INT: 

0 

>S 

15 

= 

1000000000000000 

CARD: 

32768 

INT: 

-32768 

>0 

149 

0 

0000000010010101 







= 

1000000010010101 

CARD: 

32917 

INT: 

-32619 

>R 

4 

= 

0000100000001001 

CARD: 

2057 

INT: 

2057 

>X 

255 

X 

0000000011111111 







= 

0000100011110110 

CARD: 

2294 

INT: 

2294 

>A 

255 

A 

0000000011111111 







= 

0000000011110110 

CARD: 

246 

INT: 

246 

>T 

14 

= 

0100000011110110 

CARD: 

16630 

INT: 

16630 

>T 

15 

SB 

1100000011110110 

CARD: 

49398 

INT: 

-16138 

>B 

7 TRUE 

= 

1100000011110110 

CARD: 

49398 

INT: 

-16138 

>Q 
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7.4 Felder 

Wird eine bestimmte Anzahl von Variablen eines Typs benötigt, so 
benutzt man hierfür ein Datenfeld (engl. ARRAY). 

Feldtyp: :="ARRAY" Indextyp Indextyp} "OF" Typ. 

Indextyp ::=Unterbereichs-Typ | Aufzählungstyp | CH AR | 
BOOLEAN. 

Beispiele: 

TYPE MessReihe = ARRAY[1..100] OF REAL; 

TextZeile = ARRAY[0..80] OF CHAR; 

TextSeite = ARRAY[1..60] OF TextZeile; 

PixelBildschirm - ARRAY[1..1000] OF BITSET; 
BuchstabenHaeufigkeit = ARRAY CHAR OF CARDINAL; 

Matrix = ARRAY[1..3],[1..3] OF REAL; 

Die Anzahl der Indextypen gibt die Dimension des Feldes an. In den 
Beispielen sind alle Felder eindimensional, Ausnahme ist die zwei¬ 
dimensionale «Matrix».Die einzige Operation für Variable eines 
Feldtyps ist die Zuweisung. 

VAR A, B : Matrix; 

B:=A ; ... 

Der Zugriff auf die einzelnen Komponenten eines Feldes (Feldele¬ 
mente) geschieht durch die Angabe der aktuellen Indizes in eckigen 
Klammern: Feldname[Ausdruck,Ausdruck...]. Die Werte der ein¬ 
zelnen Ausdrücke müssen kompatibel zu den angegebenen Index¬ 
typen sein. Auf die Feldelemente dürfen alle Operationen ange¬ 
wandt werden, die für Daten des Feldtyps zulässig sind. 

Beispiele: 


VAR Messung : MessReihe; 

A, B : Matrix; 

Zaehlung : BuchstabenHaeufigkeit; 

INC(Zaehlung[’A’]); 

WriteReal(Messung[35],10); 

A[l,3]:=14+B[2,2]/20; 
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Als erstes Beispiel für Felder wollen wir ein Programm schreiben, 
das die Buchstabenhäufigkeiten in einem Text bestimmt. Ohne 
Felder wäre dieses Unterfangen sehr aufwendig: 

VAR AnzahlA, AnzahlB, AnzahlC, AnzahlD : CARDINAL; 

Da alle Daten von gleichen Typ CARDINAL sind, bietet sich 
folgende Felddefinition an: 

VAR Anzahl : ARRAY ['A'..'Z'] OF CARDINAL; 

Das Programm selbst realisieren wir in zwei Prozeduren, wovon die 
eine mit dem Namen «LiesText» das Lesen des Textes und Zählen 
der Buchstaben übernimmt, während die andere («Ausgabe») eine 
ansprechende Bildschirmausgabe besorgt. 


MODULE BuchstabenHaeufigkeit; 

FROM InOut IMPORT Openlnput, Closeinput, Read, Write, WriteLn, 
WriteString, WriteCard, Done; 

VAR Anzahl : ARRAY [’A’..’Z’] OF CARDINAL; 

PROCEDÜRE LiesText; 

VAR Zeichen : CHAR; 

BEGIN 

FOR Zeichen:=’A’ TO ’Z’ DO Anzahl[Zeichen]:-0 END; (" Feld löschen *) 
Openlnput(""); 

IF NOT Done THEN WriteString("Keine Datei!"); WriteLn; HALT END; 

Read(Zeichen); 

WHILE Done DO 

Zeichen:=CAP(Zeichen); ("In Großbuchstaben umwandeln ") 

IF (Zeichen>=’A’) AND (Zeichen<=’Z’) 

THEN INC(Anzahl[Zeichen] ) 

END; (" IF ") 

Read(Zeichen) 

END; (" WHILE ") 

Closelnput 
END LiesText; 

PROCEDÜRE Ausgabe; 

VAR i, j , Spalten, Zeilen, FeldelementZahl : CARDINAL; 

Zeichen : CHAR; 

BEGIN 

FeldelementZahl:=1+0RD(’Z’)-ORD(’A’); 

Spalten:=2; Zeilen:»(FeldelementZahl+Spalten-1) DIV Spalten; 

FOR i:=1 TO Zeilen DO 
FOR j:=1 TO Spalten DO 

Zeichen:=CHR(ORD(’A’)+(J-l)«Zeilen+i-l); 

IF Zeichen<=’Z’ 

THEN 

Write(Zeichen); WriteString(" -> "); 

WriteCard(Anzahl[Zeichen],10); 
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WriteString(" ") 

END (* IF *) 

END; (» FOR J *) 

WriteLn 

END (*• FOR i ») 

END Ausgabe; 

BEGIN (* BuchstabenHaeufigkeit *) 

WriteString( "Buchstabenhäufigkeit in einem Text' 1 ); WriteLn; 

WriteString( "-"); WriteLn; 

WriteLn; 

LiesText; 

Ausgabe 

END BuchstabenHaeufigkeit. 


Probelauf: 

Buchstabenhäufigkeit in einem Text 


INPUT FROM BUCHST.MOD 


A 

-> 

54 

N 

-> 

85 

B 

-> 

14 

O 

-> 

31 

C 

-> 

34 

P 

-> 

15 

D 

-> 

38 

Q 

-> 

0 

E 

-> 

131 

R 

-> 

53 

F 

-> 

19 

S 

-> 

24 

G 

-> 

16 

T 

-> 

60 

H 

-> 

40 

U 

-> 

19 

I 

-> 

79 

V 

-> 

4 

J 

-> 

4 

w 

-> 

19 

K 

-> 

4 

X 

-> 

4 

L 

-> 

42 

Y 

-> 

1 

M 

-> 

8 

Z 

-> 

30 


Die Prozedur «Ausgabe» ist universell einsetzbar, wenn ein eindi¬ 
mensionales Feld mehrspaltig ausgegeben werden soll. 


7.4.1 Offene Felder als Parameter 

Dem häufigen Wunsch nach möglichst universell einsetzbaren 
Prozeduren steht der Zwang entgegen, daß allen Parametern eine 
Typangabe folgen muß. Verwendet man als Parameter ARRAY- 
Typen, so ist die Prozedur auf die bei der Typdefinition festgelegten 
Feldgrenzen beschränkt. Um diese Einengung umgehen zu können, 
bietet Modula-2 die sogenannten «offenen Feld-Parameter». Hier 
wird als Typ die Konstruktion «ARRAY OF ...» verwendet. 
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Beispiel: 

PROCEDURE Ausgabe(Zahlenfeld : ARRAY OF CARDINAL); 

Innerhalb der Prozedur ist das übergebene Feld folgendermaßen zu 
interpretieren: 

ARRAY[0..x] OF CARDINAL; 


Je nach aktuellem Parameter ändert sich die Größe x. Ihren Wert 
gibt die Standardprozedur «HIGH» an, deren einziger Parameter der 
Name des offenen Feldes ist. 

VAR Feldl : ARRAY[1..10] OF CARDINAL; 

Feld2 : ARRAY[ ’ A' .. ’ Z ’ ] OF CARDINAL; 

Feld3 : ARRAY[-10..10] OF CARDINAL; 


Innerhalb der Prozedur «Ausgabe» gelten nun - je nachdem, welche 
Variable zur Bearbeitung übergeben wird - folgende Größen: 

Zahlenfeld HIGH(Zahlenfeld) Zahlenfeld[0] 

Feldl 9 Feldljl] 

Feld2 25 Feld2['A'] 

Feld3 20 Feld3[-10] 

Soll beispielsweise das gesamte Zahlenfeld ausgegeben werden, so 
könnte die Prozedur «Ausgabe» folgende Gestalt haben: 

PROCEDURE Ausgabe(Zahlenfeld : ARRAY OF CARDINAL); 

VAR 1 : CARDINAL; 

BEGIN 

FOR i:=0 TO HIGH(Zahlenfeld) DO 
WriteCard(Zahlenfeld[i],10); 

WriteLn 
END (« FOR *) 

END Ausgabe; 


Hinweis: Offene Feldparameter sind nur bei eindimensionalen 
Feldern zulässig. 

Aufgabe: Bestimmen Sie HIGH(Zahlenfeld) für folgende Parameter: 

TYPE Farben = (rot,gruen,blau,gelb,schwarz,weiss); 

VAR Feld4 : ARRAY Farben OF CARDINAL; 

Feld5 : ARRAY B00LEAN OF CARDINAL; 

Feldö : ARRAY[20..30] OF CARDINAL; 
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7.4.2 Zeichenketten in Modula-2 

Eine ganz besondere Rolle spielen in Modula-2 Felder der Form 
ARRAY[0..MaxZeichen] OF CHAR 

Es handelt sich hierbei um Zeichenketten, sogenannte «Strings», 
in denen eine bestimmte Anzahl (höchstens MaxZeichen+1) Zei¬ 
chen gespeichert werden können. Da in den seltensten Fällen alle 
Zeichen des Feldes belegt werden, wird das Ende einer Zeichen¬ 
kette dadurch angezeigt, daß in dem Feldelement nach dem letzten 
gültigen Zeichen das Steuerzeichen OC abgelegt wird. Aus diesem 
Grund kann die Zuweisung an eine Variable dieses Typs wesent¬ 
lich vereinfacht werden. 


CONST MaxZeichen = 80; 

VAR Zeile : ARRAY[0..MaxZeichen] OF CHAR; 


statt Zeile[0]:=’M’; Zeile[l]:=’o’; ... Zeile[6]:=0C 

kann die Zuweisung einer Stringkonstanten an das komplette Feld 

erfolgen: 

Zeile:="Modula” 


Bei der Ausführung dieser Zuweisung werden die restlichen Feld¬ 
elemente automatisch mit OC aufgefüllt. 

Das Konzept der offenen Feldparameter erlaubt nun die Bereit¬ 
stellung von Prozeduren zum Verarbeiten von Zeichenketten, ohne 
auf die jeweiligen Dimensionierungen Rücksicht nehmen zu müs¬ 
sen. Da auch Stringkonstante intern als «ARRAY ... OF CHAR» 
dargestellt werden, können sie als offene Feldparameter übergeben 
werden. 


Beispiele: 

PROCEDURE StringLaenge(Zeile : ARRAY OF CHAR) : CARDINAL; 

VAR i : CARDINAL; 

BEGIN 
i: =0; 

WHILE (i<=HIGH(Zeile)) AND (Zeilefi]<>0C) DO INC(i) END; 
RETDRN i 

END StringLaenge; 


Die Laufvariable i zeigt nach Beendigung auf das Zeichen nach dem 
letzten gültigen. Da bei 0 zu zählen begonnen wird, entspricht i der 
Länge des Strings. 
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PROCEDURE Concat(Sl,S2 : ARRAY OF CHAR; VAR S : ARRAY OF CHAR); 

(* Setzt den String S aus den beiden Teilstrings S1 und S2 
zusammen *) 

VAR LaengeSl, LaengeS2, LengeS, i : CARDINAL; 

BEGIN 

LaengeSl:=StringLaenge(Sl); LaengeS2:=StringLaenge(S2); 

IF LaengeSl>HIGH(S)+l (* Falls S1 nicht ganz in S paßt *•) 

THEN LaengeSl:=HIGH(S)+l (* wird S1 entsprechend verkürzt *) 

END; 

FOR i:=l TO LaengeSl DO S[i-1]:=Sl[i-l] END; (* S1 wird kopiert *) 
IF LaengeS2>HIGH(S)+l-LaengeSl (* Paßt S2 noch dazu? *) 

THEN LaengeS2:=HIGH(S)+l-LaengeSl (» Wenn nein, dann verkürzen *) 
END; (» IF *) (* und kopieren *) 

FOR i:-l TO LaengeS2 DO S[LaengeSl+i-l]:-S2[i-l] END; 

IF LaengeSl+LaengeS2<-HIGH(S) (» Ist S völlig gefüllt? *) 

THEN S[LaengeSl+LaengeS2]:=0C (* Ansonsten OC anhängen *) 

END (« IF ») 

END Concat; 


Es muß sichergestellt werden, daß alle Zuweisungen innerhalb der 
erlaubten Grenzen liegen. Aus diesem Grund macht die Prozedur 
einen eher umständlichen Eindruck. 

PROCEDDRE Pos(Suchstring, String : ARRAY OF CHAR) : CARDINAL; 

(* Gibt das erste Auftreten des Suchstrings in einem String 

zurück. 0 bedeutet, daß der Suchstring nicht enthalten ist *) 

VAR LaengeSuchstring, LaengeString, i, 3 : CARDINAL; 

BEGIN 

LaengeSuchstring:=StringLaenge(Suchstring); 

LaengeString:-StringLaenge(String); 

i:=0; (* i geht die einzelnen Zeichen von String durch *) 

LOOP 

(* Falls der Suchstring schon von der Länge her nicht mehr 
passen kann, war die Suche erfolglos *) 

IF i+LaengeSuchstring>LaengeString THEN RETURN 0 END; 

j:=0; (* j geht die einzelnen Zeichen von SuchString durch *) 

(* 3 wird so lange erhöht, wie die Zeichen Ubereinstimmen M ) 

WHILE (3 <LaengeSuchstring) AND (Strlng[i+3]»Suchstring[ 3 ]) AND DO 
INC(3) 

END; (« WHILE *•) 

(** Falls alle Zeicheh gepaßt haben, ist das Ergebnis i+1 *) 

IF 3=LaengeSuchstring THEN RETURN i+1 END; 

INC(i) (* Ansonsten ein neuer Versuch mit i+1 *) 

END (* LOOP <•) 

END Pos; 


Aufgaben: 

1. Schreiben Sie ein Programm, das die obigen Prozeduren testet. 

2. Schreiben Sie eine Prozedur «Print», die einen String in einem 
Feld von n Zeichen rechtsbündig ausdruckt. 

3. Schreiben Sie ein Bibliotheksmodul «Strings», das die obigen 
Prozeduren exportiert. 
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7.4.3 Zahlenkonvertierung 

Eine interessante Anwendung ist die Eingabe von Zahlen, wenn 
verschiedene Zahlenbasen zugelassen sind. Wir gehen dabei so vor, 
daß wir die Zahl zunächst in eine Zeichenkette einiesen und dann 
in eine entsprechende CARDINAL-Zahl umwandeln. Folgende 
Zahlenarten wollen wir zulassen: 

Zahl::=Dezimalzahl j Oktalzahl | Binärzahl | Hexzahl. 

Binärzahl:: =Binärziffer {Binärziffer} "B ". 

Binärziffer::="0" | "l". 

Oktalzahl:: =Oktalziffer{Oktalzif f er} "O ". 

Oktalziffer:: =Binärzif f erf" 2 "|"3 "|"4"|"5 "|" 6 "|" 7 ". 

Dezimalzahl::=Ziff er{Zif f er} [" D " ]. 

Ziffer: :=Oktalziffer|"8"|"9". 

Hexzahl::=Hexziffer{Hexziffer} "H". 

Hexziffer: :=Ziffei|"A"|"B"|"C"|"D"|"E"|"F". 


Hier folgt nun zunächst die Prozedur «StringToCard» zum Konver¬ 
tieren einer Zahl als Zeichenfolge in ihr CARDINAL-Äquivalent. 
Da die Basis erst am Ende der Zahl angegeben wird, wollen wir 
durch eine CARDINAL-Variable «Fehler» den Erfolg der Umwand¬ 
lung mitteilen. 


Fehler: 


0 -> 

alles in Ordnung 

1 -> 

illegale Zahlenbasis 

2 -> 

illegale Zeichen in der Zahl 

3 -> 

Ziffer paßt nicht zur Basis 

4 -> 

CARDIN AL-Überlauf 

5 -> 

Leerstring wurde übergeben 


PROCEDURE StringToCard(String : ARRAY OF CHAR; VAR Zahl, Fehler : CARDINAL); 
VAR Basis, Ziffer, i, J : CARDINAL; 

BEGIN 

i:=0; (“ Zunächst wird die Basis bestimmt *) 

WHILE (i<=HIGH(String)) AND (String[i]<>0C) DO INC(i) END; 

IF i=0 («Es wurde ein leerer String Ubergeben *) 

THEN Fehler:=5; RETURN 
END; (« IF «) 

CASE String[i-1] OF 
•D’.’d’ : Basis:-10 

| ’0*..’9’ : Basis:=10; INC(i) 
j ’B’.’b’ : Basis:-2 

j ’O*,’o’ : Basis:=8 

| ’H*,’h’ : Basis:=16 

ELSE Fehler:-l; RETURN 
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END; (* CASE ») 

Zahl:=0; (" Jetzt wird die Zahl von vorne aufgebaut ») 

FOR j:=0 TO i-2 DO 
CASE String[j] OF 

: Ziffer :-ORD(String[J] )-0RD(’0’) 

| ’A’..’F’,’a’..’f’ : Ziffer:=ORD(CAP(String[j]))-ORD(’A’)+10 
ELSE Fehler:=2; RETDRN 
END; (" CASE ») 

IF Ziffer >*=Basis THEN Fehler: =3; RETURN 

ELSIF Zahl>(MAX(CARDINAL)-Ziffer) DIV Basis 

THEN Fehler:=4; RETURN 

ELSE Zahl:=Basis*Zahl+Ziffer 

END (* IF *) 

END; (* FOR *) 

Fehler:=0 
END StringToCard; 


Ein kleines Testprogramm kann man sich ganz einfach erstellen: 


MODULE Konvertierung; 

FROM InOut IMPORT ReadString, WriteCard, WriteLn, WriteString; 

PROCEDURE StringToCard ... (wie oben) 

VAR String : ARRAY[0..20] OF CHAR; 

Card : CARDINAL; 

Fehler : CARDINAL; 

BEGIN 

WriteString("Bitte eine CARDINAL-Zahl aus dem"); WriteLn 
WriteString( "B)inär-, 0)ktal-, D)ezimal- oder Hexadezimalsystem. " ); 
WriteLn; WriteLn; 

WriteString("Fügen Sie den Kennbuchstaben der Zahlenbasis an die"); 
WriteLn; 

WriteString("Ziffernfolge an (Beispiel: FF08H)."); WriteLn; 

WriteLn; 

WriteString("Ihre Zahl: "); 

ReadString(String); WriteLn; 

StringToCard(String,Card,Fehler); 

CASE Fehler OF 

0 : WriteString("Ihre Zahl im Dezimalsystem: "); 

WriteCard(Card,1) 

1 1 : WriteString("Illegale Zahlenbasis") 
j 2 : WriteString("Illegale Zeichen in der Zahl") 

| 3 : WriteStringj"Ziffer paßt nicht zur Basis") 

| 4 : WriteString("CARDINAL-Uberlauf’’) 

| 5 : WriteString("Leerstring wurde übergeben") 

END; (« CASE *) 

WriteLn 

END Konvertierung. 


Probelauf: 

Bitte eine CARDINAL-Zahl aus dem 

B)inär-, Ojktal-, Djezimal- oder Hexadezimalsystem. 
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Fügen Sie den Kennbuchstaben der Zahlenbasis an die 
Ziffernfolge an (Beispiel: FF08H). 

Ihre Zahl: 1020001B 
Ziffer paßt nicht zur Basis 

Aufgaben: 

1. Schreiben Sie eine Prozedur 

«CardToString(VAR S : ARRAY OF CHAR; Zahl, Basis : CAR¬ 
DINAL)». 

2. Schreiben Sie eine Prozedur «LiesCard», die keine Fehleingaben 
zuläßt (und auf «StringToCard» zurückgreift), und bauen Sie 
diese Prozedur in das Programm «BitTest» ein. 


7.4.4 Datensuche in Feldern 

Will man ein Feld daraufhin untersuchen, ob ein bestimmtes 
Element enthalten ist oder nicht, so kann man den Suchaufwand 
ganz wesentlich reduzieren, wenn die Feldelemente in geordneter 
Reihenfolge vorliegen. Ist ein Feld sortiert, dann kann derselbe 
Algorithmus verwendet werden, den man bei der Suche nach 
einem Namen im Telefonbuch anwendet. Hier schlägt man erst 
einmal in der Mitte auf. Aufgrund der alphabetischen Anordnung 
kann man nun sofort sagen, ob sich der gesuchte Name in der 
ersten oder zweiten Hälfte befindet. Dieses Verfahren wird so lange 
wiederholt, bis der gewünschte Teilnehmer gefunden wird. 

Dieser Algorithmus, bei dem die Anzahl der in Frage kommen¬ 
den Elemente bei jedem Schritt halbiert wird, hat den Namen 
«binäre Suche» erhalten. 

Angenommen, wir wollen prüfen, ob sich die CARDINAL-Zahl 
«Gesucht» im Zahlenfeld «Zahlen» befindet. Dazu übertragen wir 
den obigen Algorithmus in eine boolesche Funktionsprozedur «vor¬ 
handen». 

PROCEDURE vorhanden!Zahlen • ARRAY OF CARDINAL; Gesucht : CARDINAL) : 
BOOLEAN; 

VAR Oben, Unten, Mitte : CARDINAL; 

BEGIN 

Unten:=0; Oben:=HIGH(Zahlen); (» Am Anfang ist es das ganze Feld *) 
REPEAT 

Mitte:=(Unten+Oben) DIV 2; (* Die Mitte bestimmen *) 

IF Gesucht<Zahlen[Mitte] (* Gesucht ist in der linken Hälfte *) 
THEN Oben:=Mitte-l (* also Oben entsprechend setzen *) 

ELSIF Gesuch>Zahlen[Mitte] (* oder in der rechten Hälfte? *) 
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THEN Unten:=Mitte+l 
ELSE RETURN TRUE 
UNTIL ObenCUnten; 
RETURN FALSE 
END vorhanden; 


(* dann wird Unten korrigiert *) 
(* ansonsten ist es die Zahl! «) 

(* Pech gehabt *) 


Das funktioniert allerdings nur, wenn das Feld «Zahlen» auch 
aufsteigend sortiert ist. Das Sortieren von Feldern ist eine eigene 
Wissenschaft. In diesem Buch werden Sie zwei grundverschiedene 
Algorithmen kennenlernen. Der eine ist leichtverständlich, dafür 
aber langsam und nur für kleine Felder zu gebrauchen. Der andere 
gehört zum Schnellsten, was die Informatik derzeit zu bieten hat. 

Er befindet sich im Kapitel über Rekursion und verlangt schon 
etwas mehr Mühe, um begriffen zu werden. 

Der einfache Algorithmus arbeitet so, wie ein Kartenspieler sein 
Blatt sortiert, nachdem er alle Karten auf einmal aufgenommen 
hat. Dazu bringt er zuerst die höchste Karte an die erste Stelle, dann 
die zweithöchste an die zweite usw., bis alle Karten geordnet sind. 

Wir wollen das Verfahren wieder an einem CARDINAL-Feld 
durchspielen: 

PROCEDURE Sortiere(VAR Zahlen : ARRAY OF CARDINAL); 

VAR i, j : CARDINAL; (* zum Durchsuchen des Feldes *) 

kleinstes : CARDINAL; (« zeigt auf das kleinste Feldelement *) 
temp : CARDINAL; (* kum Vertauschen *) 

BEGIN 

FOR i:=0 TO HIGH(Zahlen)-l DO 

(» Alle Zahlen bis auf die letzte werden betrachtet. Wenn alle anderen 
Zahlen an der richtigen Stelle sind, ist es die letzte automatisch *) 
kleinstes:=i; (« Es könnte ja sein, daß Zahlen[i] bereits stimmt *) 
FOR J:-i+l TO HIGH(Zahlen) DO (» J klappert den Rest ab «) 

IF Zahlenfj]<Zahlep[kleinstes] («Es gibt noch ein kleineres «) 
THEN kleinstes:=j 
END; (« IF «) 

END; (« FOR j «) 

IF iokleinstes (* Muß etwas vertauscht werden? «) 

THEN temp:=Zahlen[i]; Zahlen[i]:«Zahlen[j]; Zahlen[J]:-temp 
END (« IF «) 

END (» FOR i ») 

END Sortiere; 


Im folgenden Beispielprogramm sind beide Prozeduren enthalten. 
Da das Feld nicht in jedem Fall vollständig gefüllt sein muß, wird 
jeweils die aktuelle Feldgröße in «A» übergeben. Der Anweisungs¬ 
teil des Moduls besteht nur aus Prozeduraufrufen - ein typisches 
Beispiel für umfangreichere Programme. 
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MODULE ZahlenFelder; 

FROM InOut IMPORT ReadCard, WriteCard, WriteStrlng, WriteLn; 

CONST MaxZahlen = 100; 

VAR Feld : ARRAY[1..MaxZahlen] OF CARDINAL; 

Anzahl : CARDINAL; 

PROCEDURE Eingabe(VAR F : ARRAY OF CARDINAL; VAR A : CARDINAL); 

VAR NaechsteZahl : CARDINAL; 

BEGIN 
A: =0; 

WriteString("Bitte geben Sie eine Folge von max. "); 
WriteCard(MaxZahlen,1); 

WriteString(" CARDINAL-Zahlen ein."); WriteLn; 

WriteString("Ende der Zahlenfolge - 0"); WriteLn; 

ReadCard(NaechsteZahl); 

WHILE (A<=HIGH(F)) AND (NaechsteZahl>0) DO 
F[A]:»NaechsteZahl; 

ReadCard(NaechsteZahl); 

INC(A) 

END; (" WHILE ») 

WriteLn 
END Eingabe; 

PROCEDURE Ausgabe(F : ARRAY OF CARDINAL; A : CARDINAL); 

CONST MaxSpalten =10; (» 80-Zeichen-Bildschirm «) 

BildschirmZeilen = 24; 

VAR i, J : CARDINAL; 

Zeilenzahl : CARDINAL; 

SpaltenZahl : [1..MaxSpalten]; 

BEGIN 

IF (A+BildschirmZeilen-1) DIV BildschirmZeilen>MaxSpalten 
THEN SpaltenZahl:»MaxSpalten 

ELSE SpaltenZahl:=(A+BildschirmZeilen-l) DIV BildschirmZeilen 
END; (» IF *) 

ZeilenZahl:=(A+SpaltenZahl-1) DIV SpaltenZahl; 

FOR i:=1 TO ZeilenZahl DO 

FOR j:=0 TO SpaltenZahl-1 DO 

IF i+J"ZeilenZahl<=A THEN WriteCard(F[i+j"ZeilenZahl-1],8) END 
END; (» FOR j ") 

IF SpaltenZahl<MaxSpalten THEN WriteLn END 
END; (« FOR i ») 

WriteLn 
END Ausgabe; 

PROCEDURE Sortierung]VAR F : ARRAY OF CARDINAL; A : CARDINAL); 

VAR i, j, kleinstes : CARDINAL; 
temp : CARDINAL; 

BEGIN (* Sortierung ") 

FOR i:=0 TO A-2 DO 
kleinstes:=i; 

FOR j:=1+1 TO A-l DO 

IF F[j]<F[kleinstes] THEN kleinstes:=j END 
END; (» FOR j ») 

IF iokleinstes 

THEN temp:=F[i]; F[i]:=F[kleinstes]; F[kleinstes]:=temp 
END 

END (" FOR i *) 

END Sortierung; 
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PROCEDURE TesteZahlen(F : ARRAY OF CARDINAL; A : CARDINAL); 

VAR TestZahl : CARDINAL; 

PROCEDURE vorhanden(F : ARRAY OF CARDINAL; A : CARDINAL; 

Gesucht : CARDINAL) : BOOLEAN; 

VAR Oben, Unten, Mitte : CARDINAL; 

BEGIN 

Unten:=0; Oben:=A-l; 

REPEAT 

Mitte:=(Unten+Oben) DIV 2; 

IF Gesucht<F[Mitte] THEN Oben:=Mitte-l 
ELSIF Gesucht>F[Mitte] THEN Unten:«Mitte+1 
ELSE RETURN TRUE 
END (* IF «) 

UNTIL Oben<Unten; 

RETURN FALSE 
END vorhanden; 

BEGIN (* TesteZahlen *) 

WriteLn; 

WriteString("Suche von Zahlen im geordneten Feld"); WriteLn; 
WriteString("Geben Sie beliebige natürliche Zahlen ein (0=Ende)"); 
WriteLn; 

REPEAT 

WriteString( "x = "); l?eadCard( TestZahl); 

WriteString(" ist "); 

IF NOT vorhanden(F,A,TestZahl) THEN WriteString("nicht ") END; 
WriteString("vorhanden."); WriteLn 
UNTIL TestZahl=0 
END TesteZahlen; 

BEGIN (*• ZahlenFelder ») 

Eingabe(Feld,Anzahl); 

Sortierung(Feld,Anzahl); 

Ausgabe(Feld,Anzahl); 

TesteZahlen(Feld,Anzahl) 

END ZahlenFelder. 


Probelauf: 

Bitte geben Sie eine Folge von max. 100 CARDINAL-Zahlen ein. 
Ende der Zahlenfolge = 0 
1 

23 

3 

4 
15 
22 
8 
0 


1 

3 

4 
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8 

15 

22 

23 


Suche von Zahlen im geordneten Feld 
Geben Sie beliebige natürliche Zahlen ein (0=Ende) 
x = 19 ist nicht vorhanden 
x = 22 ist vorhanden 


Aufgaben: 

1. Prüfen Sie, inwieweit die folgende Alternative zur Funktions¬ 
prozedur «vorhanden» dieselben Resultate liefert. Weshalb ist 
sie der ursprünglichen Version vorzuziehen? 


PROCEDURE vorhanden(F = ARRAY OF CARDINAL; A : CARDINAL; 

Gesucht : CARDINAL) : BOOLEAN; 

VAR Oben, Unten, Mitte : CARDINAL; 

BEGIN 

Unten:=0; Oben:=A-l; 

WHILE UntenOOben DO 

Mitte:=(Unten+Oben) DIV 2; 

IF Gesucht>F[Mitte] 

THEN Unten:«Mitte+l 
ELSE Oben:=Mitte 
END (« IF «) 

END; (* WHILE *) 

RETURN F[Unten]=Gesucht 
END vorhanden; 


2. Wie kann diese Version realisiert werden, wenn nur eine Funk¬ 
tion «kleiner» zum Vergleich zweier Feldelemente vorhanden 
ist, nicht jedoch ein Test auf Gleichheit? 


7.4.5 Ein Modula-2-Ausdruckprogramm 

Eine wichtige Hilfe bei der Programmierarbeit ist ein Programm 
zum Ausdrucken eines Quelltextes. Eine sinnvolle Einrichtung 
dabei ist die Numerierung der einzelnen Programmzeilen. Das 
Hervorheben der Schlüsselwörter erleichtert den Überblick - aber 
nur, wenn sie in Kommentaren und Zeichenketten unterdrückt 
werden. Wie bereits im Kapitel über Module gezeigt, muß bei der 
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Analyse von Kommentaren ein Zeichen über das gerade aktuelle 
hinausgelesen werden. 

Die Arbeit der Textanalyse verrichtet ein endlicher Automat mit 
den Zuständen «ZeichenLesen», «WortLesen», «Stringl», 
«String2» und «Kommentar». Eine Buchstabenfolge wird in der 
Stringvariablen «Puffer» gespeichert. «ZeichenZahl» gibt die 
augenblickliche Stringlänge an. 


Alter Zustand 

Zeichen 

Aktion 

Neuer Zustand 

ZeichenLesen 

Buchstabe 

ZeichenZahl :=1 

Puffer[ZeichenZahl]:»Zeichen 

WortLesen 


» !f » 

- 

Stringl 


»» » H 

- 

String2 


’(’ 

Falls Naechstes»’ H ’ 
dann KommentarTiefe: =1 

Kommentar 



ansonsten 

ZeichenLesen 


sonst 


ZeichenLesen 

WortLesen 

Buchstabe 

INC(ZeichenZahl) 

Puffer[ZeichenZahl]:»Zeichen 

WortLesen 


sonst 

Falls Puffer Schlüsselwort 
dann hervorheben 
ansonsten ausgeben 

ZeichenLesen 

Stringl 

sonst 


ZeichenLesen 

Stringl 

String2 

If » »1 


ZeichenLesen 


sonst 


String2 

Kommentar 


Falls Naechstes»’* ’ 
dann INC(KommentarTiefe) 

Kommentar 


» * » 

Falls Naechstes»’)’ 
dann 




DEC(KommentarTiefe) 

Bei KommentarTiefe=0 

ZeichenLesen 



ansonsten 

Kommentar 


Eigentlich müßte das Zeichen, das das Ende eines Bezeichners 
anzeigt, wieder zurückgeschrieben werden, da es unter Umständen 
den Beginn eines Kommentars oder einer Zeichenkette anzeigen 
könnte. Wenn wir jedoch davon ausgehen, daß ausschließlich 
hauptsächlich korrekte Programmtexte bearbeitet werden und zwi¬ 
schen Bezeichner und Kommentar mindestens ein Leerzeichen 
steht, kann dieser Mangel in Kauf genommen werden. Andernfalls 
muß die Ausgabe etwas aufwendiger gestaltet und für das zurück¬ 
geschriebene Zeichen unterdrückt werden. 

Die Frage, ob es sich bei dem isolierten Bezeichner um ein 
Schlüsselwort handelt, beantwortet die boolesche Funktionsproze- 
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dur «ReserviertesWort». Diese wiederum greift auf ein Feld zu, in 
dem alle Schlüsselwörter alphabetisch sortiert abgelegt sind. Da 
dieses Feld erst entsprechend initialisiert werden muß, bietet sich 
der Einsatz eines weiteren lokalen Moduls an, das ausschließlich 
die Funktionsprozedur «ReserviertesWort» exportiert. 

Die (zu «ReserviertesWort») lokale Funktionsprozedur «kleiner» 
zum Vergleich zweier Strings ist nicht ganz universell einsetzbar. 
Überprüfen Sie bitte, weshalb sie im Programm korrekt arbeitet, 
beim Aufruf von «kleiner!«Holzweg», «Holz»)» beispielsweise ein 
eventuell falsches Resultat liefert. 

Das zeilen- und seitenweise Formatieren des Quelltextes über¬ 
nimmt die bedingte Anweisung «IF Zeichen=EOL ...» am Ende der 
WHILE-Anweisung im Hauptprogramm. Beachten Sie, daß die Pro¬ 
zeduren «MarkiereWort» und «NeueSeite» an Ihren Drucker ange¬ 
paßt werden müssen. 


MODULE QuelltextLister; 

FROM InOut IMPORT Read, Write, WriteLn, WriteCard, WriteString, 

Openlnput, Closeinput, OpenOutput, CloseOutput, Done, 
EOL; 

CONST ZeilenProSeite = 60; 

MaxZeichenZahl = 80; 

VAR Puffer : ARRAY[0..MaxZfeichenZahl] OF CHAR; 

Zeichen, Naechstes : CHAR; 

Zustand : (ZeichenLesen, WortLesen, Stringl, String2, Kommentar); 
ZeilenNr, ZeichenZahl, KommentarTiefe : CARDINAL; 


(Htt*tt*K**tt«*M*H*«*K**tt**«K****M«M«MMMttM**«*M*«MMMM****M***«**»M«tt*H»***tt*Htttttt) 

(* Lokales Modul zur gepufferten Eingabe eines Zeichens *) 

(**HttHHttM*tttttttt***M****K»**M*tt**Mtt*****ttMMtttt***ff*K*MM**tttf*tt****tt*tt**ttM*tt**M*Mtt) 


MODULE GepuffertesLesen; 

IMPORT Read; 

EXPORT ReadChar, PushBack; 

VAR ZeichenPuffer : CHAR; 

PROCEDURE ReadChar(VAR Zeichen : CHAR); 

BEGIN 

IF ZeichenPuffer=OC 
THEN Read(Zeichen) 

ELSE Zelchen:=ZeichenPuffer; ZeichenPuffer:-0C 
END (<• IF *) 

END ReadChar; 

PROCEDURE PushBack(Zeichen : CHAR); 

BEGIN 

ZeichenPuffer:»Zeichen 
END PushBack; 
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BEGIN (* Initialisierung ») 

ZeichenPuff er:=0C 
END GepuffertesLesen; 

(* Lokales Modul zur Bestimmung, ob es sich bei einem Bezeichner *) 

(* um ein Schluesselwort handelt. ") 


MODULE ReservierteWoerter; 

EXPORT ReserviertesWort; 

VAR ResWort: ARRAY[1..40] OF ARRAY[0..15] OF CHAR; 

PROCEDURE ReserviertesWort(Bezeichner : ARRAY OF CHAR) : BOOLEAN; 

VAR von, bis, mitte : [1..40]; 

PROCEDURE kleiner(X,Y : ARRAY OF CHAR) : BOOLEAN; 

VAR i, Minimum : CARDINAL; 

BEGIN 

IF HIGH(X)<HIGH( Y) 

THEN Minimum:=HIGH(X) 

ELSE Minimum:-HIGH(Y) 

END; (* IF ") 

i: “0; 

WHILE (i<Mlnimum) AND (X[i]=Y[i]) AND (X[i]<>0C) AND (Y[i]<>0C) DO 
INC(i) 

END; 

RETURN X[i]<Y[i] 

END kleiner; 

BEGIN 

von:=l; bis:=40; 

WHILE vonObis DO 

mitte:=(von+bis) DIV 2; 

IF kleiner(ResWort[mitte].Bezeichner) 

THEN von:=mitte+l 
ELSE bis:=mitte 
END (" IF *) 

END; (" WHILE ») 

RETURN NOT kleiner(ResWort[von],Bezeichner) AND 
NOT kleiner(Bezeichner,ResWort[von]) 

END ReserviertesWort; 

BEGIN 


ResWort[ 1] 

-"AND" ; 

ResWort[21] 

-"LOOP"; 

ResWort[ 2] 

-"ARRAY"; 

ResWort[22] 

="M0D"; 

ResWort[ 3] 

-"BEGIN"; 

ResWort[23] 

-"MODULE”; 

ResWort[ 4] 

="BY"; 

ResWort[24] 

-"NOT"; 

ResWort[ 5] 

="CASE"; 

ResWort[25] 

="0F"; 

ResWort[ 6] 

-"CONST"; 

ResWort[26] 

—"0R"; 

ResWort[ 7] 

-"DEFINITION"; 

ResWort[27] 

-"POINTER"; 

ResWort[ 8] 

="DIV"; 

ResWort[28] 

-"PROCEDURE 

ResWort[ 9] 

-"DO"; 

ResWort[29] 

-"QUALIFIED 

ResWort[10] 

-"ELSE"; 

ResWort[30] 

-"RECORD"; 

ResWort[ll] 

-"ELSIF"; 

ResWort[31] 

-"REPEAT"; 

ResWort[12] 

-"END"; 

ResWort[32] 

-"RETURN"; 

ResWort[13] 

-"EXIT"; 

ResWort[33] 

-"SET"; 

ResWort[14] 

-"EXPORT"; 

ResWort[34] 

-"THEN"; 

ResWort[15] 

="F0R"; 

ResWort[35] 

-"TO"; 

ResWort[16] 

="FR0M"; 

ResWort[36] 

-"TYPE"; 
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ResWort [17] : = "IF" ; ResWort[37] :-"UNTIL" ; 

ResWort[18]:="IMPLEMENTATION"; ResWort[38]:="VAR"; 

ResWort[19]:="IMPORT"; ResWort[39]:="WHILE"; 

ResWort[20]:="IN"; ResWort[40]:-"WITH" 

END ReservierteWoerter; 

PROCEDURE MarklereWort(Bezeichner : ARRAY 0F CHAR); 

BEGIN 

Wrlte(CHR(27)); Wrlte(’C); 

WrlteString(Bezeichner); 

Write(CHR(27)); Wrlte(’)’) 

END MarklereWort; 

PROCEDURE NeueSeite; 

BEGIN 

Write(CHR(12 )) 

END NeueSeite; 

BEGIN (» QuelltextLlster ■) 

WriteString("Quelltext-Llster " ); WrlteLn; 

WrlteStrlng( "-” ); WrlteLn; 

WrlteLn; 

0penlnput("MOD"); IF NOT Done THEN WrlteString("Keine Datei!"); HALT END; 
OpenOutput("LST" ); 

ZeilenNr:=0; Zustand:=ZeichenLesen; Zeichen:=EOL; 

WHILE Done DO 
CASE Zustand OF 

ZeichenLesen : CASE Zeichen OF 

’A’..’Z’ : ZeichenZahl:—0; 

Puffer[ZeichenZahl]:-Zeichen; 

Zustand:-WortLesen 
| ’"’ : Zustand:-Stringl 

| "’" : Zustand:=String2 

| "(" : ReadChar(Naechstes); 

IF Naechstes-’*’ 

THEN 

KommentarTiefe:-l; 

Zustand:“Kommentar 
END; 

PushBack(Naechstes) 

ELSE (" nichts *) 

END (« CASE *) 

| WortLesen : IF (Zeichen!“’A’) AND (Zeichen<-’Z’) 

THEN IF ZeichenZahl<MaxZeichenZahl 
THEN 

INC(ZeichenZahl); 

Puffer[ZeichenZahl]:“Zeichen 
feND 

ELSE (" Wort vollstaendig gelesen *) 

IF ZeichenZahl<MaxZeichenZahl 
THEN 

INC(ZeichenZahl); 

Puffer[ZeichenZahl]:=0C 
END; 

IF ReserviertesWort(Puffer) 

THEN MarkiereWort(Puffer) 

ELSE WriteString(Puffer) 

END; 

Zustand:“ZeichenLesen 
END 

| Stringl : IF Zeichen“’"’ THEN Zustand:-ZeichenLesen END 

j String2 : IF Zeichen-"’" THEN Zustand:“ZeichenLesen END 

j Kommentar : CASE Zeichen OF 
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’(’ : ReadChar(Naechstes); 

IF Naechstes“’*’ 

THEN INC(KommentarTiefe) 

END; 

PushBack(Naechstes) 

| ’*’ : ReadChar(Naechstes); 

IF Naechstes“’)’ 

THEN 

DEC (Kommentar-Tiefe); 

IF KommentarTiefe=0 
THEN Zustand:=ZeichenLesen 
END 
END; 

PushBack(Naechstes) 

END (* CASE *) 

END; (" CASE *) 

IF Zeichen=EOL 
THEN 

IF ZellenNr>0 

THEN IF ZeilenNr MOD ZeilenProSeite = 0 
THEN NeueSeite 
ELSE WriteLn 
END 

END; 

INC(ZeilenNr); WriteCard(ZeilenNr,4); Write(*:*) 
ELSIF Zustand<>WortLesen 
THEN Write(Zeichen) 

END; 

ReadChar(Zeichen) 

END; (* WHILE *) 

Closeinput; 

CloseOutput; 

END QuelltextLister. 


Aufgabe: 

Eine noch bessere Lesbarkeit ergibt sich, wenn auch die Kommen¬ 
tare optisch vom Programmtext getrennt, also beispielweise kursiv 
ausgedruckt werden. Welche Änderungen sind dafür notwendig? 


7.5 Der Datentyp RECORD 

Rückblick: Mit Feldern (ARRAY) ist es möglich, in einer Variablen 
mehrere Daten gleichen Typs zu speichern. 

In der Praxis kommt es jedoch häufig vor, daß eine Informations¬ 
einheit aus mehreren Daten verschiedenen Typs benötigt wird. Das 
Standardbeispiel hierfür ist eine Personal-Karteikarte. Hier müssen 
Angaben wie Namen, Straße und Wohnort (STRING) ebenso einge¬ 
tragen werden wie Personalnummer (CARDINAL) oder Gehalt 
(REAL). 
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Auch ein Datentyp «Datum» kann durch ein Feld nur unzurei¬ 
chend dargestellt werden. Der Versuch 

TYPE Datum = ARRAY[1..3] OF CARDINAL; 

VAR Heute : Datum; 

bei dem die erste Feldkomponente den Tag, die zweite den Monat 
und die dritte das Jahr enthält, ist unbefriedigend: 

□ Hier muß die Interpretation bekannt sein (Dokumentation). 

□ Falsche Zuordnungen wie Heute[l]:=1987 werden nicht er¬ 
kannt. 

□ Ein Programm, das diesen Typ benutzt, ist nicht selbstdoku¬ 
mentierend. 

Ein zweiter Versuch, das Problem mit einem Feld zu lösen, könnte 
so aussehen: 

TYPE DatumsEintrag = (Tag, Monat, Jahr); 

Datum - ARRAY DatumsEintrag OF CARDINAL; 

VAR Heute : Datum; 

Hier sind zwar aussagekräftige Zuordnungen möglich: 

Heute[Tag]:=27; Heute[Monat]:=l 1; Heute[Jahr]:=1987; 

Dennoch bleibt das Problem der unerkannten Fehlzuordnungen. 

Wenn jedoch beispielsweise der Wochentag im Klartext hinzuge¬ 
nommen werden soll, scheitert der Ansatz vollkommen. Für solche 
Fälle bietet Modula-2 den Datentyp «RECORD». Die einfache 
Form sieht folgendermaßen aus: 

Rekordtyp: :="RECORD" Datensatzliste "Datensatzliste} 
"END". 

Datensatzliste::=Feldnamenliste Typ. 

Feldnamenliste: :=Feldname {"," Feldname}. 

Für das obige Beispiel lautet die Deklaration: 

TYPE Datum = RECORD 

Tag : [1..31]; 

Monat : [1..12]; 

Jahr : [1900..2100] 
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Oder mit «Wochentag» im Klartext: 

TYPE Datum - RECORD 

Wochentag :ARRAY[0..20] OF CHAR; 
Tag : [1..31]; 

Monat : [1..12]; 

Jahr : [1900..2100] 

END; 


Auf die einzelnen RECORD-Komponenten wird nicht über einen 
Index (wie bei ARRAY), sondern über den Feldnamen zugegriffen. 
Dazu wird dieser vom Variablennamen durch einen Punkt abge¬ 
trennt. 

Beispiel: 

VAR Heute : Datum; 

Heute. Wochentag:="Donnerstag" ; 

Heute.Tag:=14; 

Heute.Monat:=5; 

Heute.Jahr:=1987; 


7.5.1 Die WITH-Anweisung 

Wenn in einer Anweisungssequenz mehrmals auf verschiedene 
Felder einer RECORD-Variablen zugegriffen werden muß, so kann 
hier die WITH-Anweisung eingesetzt werden. 

WITH-Anweisung: :="WITH" (RECORD-)Variable "DO" Anwei¬ 
sungssequenz "END". 

Innerhalb der WITH-Anweisung kann dann der Name der 
RECORD-Variablen einschließlich des folgenden Punktes wegge¬ 
lassen werden. 

Beispiel: 

WITH Heute DO 

Wochentag:»"Donnerstag"; 

Tag:»31; 

Monat:=5; 

Jahr:=1987 
END; (» WITH ») 
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Die WITH-Anweisung kann besonders bei verschachtelten 
RECORDs vorteilhaft eingesetzt werden. 

Beispiel: 

TYPE Datum = (siehe oben); 

Wetterbeobachtung = RECORD 

Beobachtungsdatum : Datum; 

Ort : ARRAY[0..40] OF CHAR; 

Temperatur : integer; 

Windrichtung : (Nord, Sued, Ost, West); 
Windstaerke : 0..7 
END; 


VAR Heutiges Wetter : Wetterbeobachtung; 

Ohne die WITH-Anweisung würde die Datumsangabe folgender¬ 
maßen aussehen: 

HeutigesWetter.Beobachtungsdatum.Wochentag:="Sonntag"; 
HeutigesWetter.Beobachtungsdatum.Tag:=19; 
HeutigesWetter.Beobachtungsdatum.Monat:=3; 
HeutigesWetter.Beobachtungsdatum.Jahr:=1987; 

Entsprechend den verschachtelten RECORDs können auch WITH- 
Anweisungen verschachtelt werden: 

WITH HeutigesWetter DO 
WITH Datum DO 

Wochentag:="Sonntag"; 

Tag:=19; Monat:=3; Jahr:=1987 
END; (« WITH Datum ») 

END; (** WITH HeutigesWetter «) 

Hinweis: Der Einsatz der WITH-Anweisung spart nicht nur 
Schreibarbeit, sondern führt zudem zu übersichtlicheren, klareren 
und schnelleren Programmen. 


7.5.2 Operationen mit RECORDs 

Zwei Variable vom gleichen RECORD-Typ können mit der Zuwei¬ 
sung (:=) gleichgesetzt werden. 

Beispiel: 

VAR HeutigesWetter, GestrigesWetter : Wetterbeobachtung; 
Heutiges W etter:=Gestriges W etter; 
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Darüber hinaus gibt es für RECORDs keine Operatoren. Insbeson¬ 
dere können RECORD-Variable nicht auf Gleichheit oder 
Ungleichheit geprüft werden (mit = oder <>). Hier müssen vom 
Programmierer eigene Funktionsprozeduren erstellt werden. 


7.5.3 Interaktive Ein- und Ausgabe von RECORDs 

Die Bibliotheksmoduln liefern nur Prozeduren zur Ein- und Aus¬ 
gabe von Daten der Grundtypen CARDINAL, INTEGER, CHAR, 
REAL usw. Um auch Daten vom RECORD-Typ von der Tastatur 
ein- bzw. über den Bildschirm auszugeben, müssen eigene Prozedu¬ 
ren geschrieben werden. Hierbei ist auf folgendes zu achten: 

□ Sicherheit - Fehleingaben müssen erkannt und zurückgewiesen 
werden. 

□ Benutzerfreundlichkeit - dem Anwender muß klar sein,was 
einzugeben ist. Wenn möglich, sollen die Eingaben durch Aus¬ 
wahl erfolgen. 

Beispiel: Datumseingabe 

Die Ein- und Ausgabe eines Rekordtyps soll an dem häufig benötig¬ 
ten Typ «Datum» demonstriert werden. 

TYPE Datum = RECORD 

Tag : [1..31]; 

Monat : [1. . 12] ; 

Jahr : [1800..2100] 

END; 


Wir wollen die Eingabe eines Datums der Form «19.5.1988» reali¬ 
sieren. Dabei sollen keine unzulässigen Eingaben akzeptiert wer¬ 
den. Der Algorithmus könnte etwa so lauten: 

Wiederhole: 

Hole eine Datumseingabe von der Tastatur. 

Wandle die Datumseingabe in eine Variable vom Typ Datum. 
Wenn dabei ein Fehler aufgetreten ist, so gib eine Meldung aus. 
Bis die Umwandlung fehlerfrei ist. 

Wir lesen also die Tastatureingabe zunächst in eine Zeichenkette 
und wandeln diese, falls möglich, in ein gültiges Datum um. Aus 
diesem Grund formulieren wir jetzt die Umwandlungsprozedur 
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«StringToDatum». Dazu basteln wir uns wieder einen kleinen 
Automaten mit den Zuständen: TagLesen, MonatLesen, JahrLesen. 
Der übergebene String wird von links nach rechts zeichenweise 
analysiert. 


alter Zustand gel 

Aktion 

neuer Zustand 

TagLesen 

Ziffer 

Tag berechnen 

Taglesen 

TagLesen 

* . * 

Tag testen 

MonatLesen 

TagLesen 

sonst 

Fehler 


MonatLesen 

Ziffer 

Monat berechnen 

MonatLesen 

MonatLesen 

» * 

Monat testen 

JahrLesen 

MonatLesen 

sonst 

Fehler 

- 

JahrLesen 

Ziffer 

Jahr berechnen 

JahrLesen 

JahrLesen 

sonst 

Fehler 

- 


Es wird kein eigener Ende-Zustand benötigt, da dieser durch das 
Stringende automatisch angezeigt wird. Am Ende muß das eingege¬ 
bene Datum noch als ganzes auf Plausibilität geprüft werden. 


PROCEDURE StringToDatum(S : ARRAY OF CHAR; VAR D : Datum; 

VAR Fehler : BOOLEAN); 

PROCEDURE BerechneZahl(VAR Zahl : CARDINAL; C : CHAR; 

VAR Ueberlauf : BOOLEAN); 

BEGIN 

IF Zahl<=(MAX(CARDINAL)-(ORD(C)-ORD(’0’))) DIV 10 
THEN Zahl:=10*Zahl + ORD(C)-ORD(’0') 

ELSE Ueherlauf:=TRUE 
END (» IF *) 

END BerechneZahl; 

PROCEDURE PruefeDatum(D : Datum; VAR Illegal : BOOLEAN); 
BEGIN 

WITH D DO 

CASE Monat OF 

2 : IF (Tag>29) THEN illegal:-TRUE 

ELSIF ((Jahr MOD 4<>0) OR ((Jahr MOD 100=0) 
AND (Jahr MOD 40000))) AND (Tag=29) 
THEN illegal:=TRUE 
ELSE illegal:=FALSE 
END; 

| 4,6,9,11 : illegal:=Tag>30 
ELSE illegal:=FALSE 
END (* CASE ») 

END (» WITH ») 

END PruefeDatum; 


VAR i, Zahl : CARDINAL; 

Zustand : (TagLesen, MonatLesen, JahrLesen); 
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BEGIN 

Zahl:=0; Zustand:=TagLesen; Fehler:-FALSE; i:=0; 

WHILE (i<-HIGH(S)) AND (S[1]<>0C) AND NOT Fehler DO 
CASE Zustand OF 

TagLesen : CASE S[i] OF 

’0’.. ’9’ : BerechneZahl(Zahl,S[l].Fehler) 
| : IF (Zahl>0) AND (Zahl<-31) 

THEN 

D.Tag:-Zahl; 

Zahl:-0; 

Zustand:-MonatLesen 
ELSE Fehler:-TRUE 
END (* IF ») 

ELSE Fehler:=TRUE 
END (* CASE S[l] OF ») 

| MonatLesen : CASE S[i] OF 

'0’..’9’ : Berechnezahl(Zahl,S[i],Fehler) 
| : IF (Zahl>0) AND (Zahl<-12) 

THEN 

D.Monat:=Zahl; 

Zahl:-0; 

Zustand:-JahrLesen 
ELSE Fehler:=TRUE 
END (« IF ») 

ELSE Fehler:-TRUE 
ENÖ (» CASE S[l] OF «) 

| JahrLesen : CASE S[i] OF 

’0’..’9’ : BerechneZahl(Zahl,S[i].Fehler) 

ELSE Fehler:-TRUE 

END (* CASE S[i] OF ») 

END; (« CASE *) 

INC(i) 

END; (* WHILE *•) 

IF Zustand<>JahrLesen THEN Fehler:-TRUE END; 

IF Fehler THEN RETURN END; 

IF (Zahl>=1800) AND (Zahl<-2100) 

THEN D.Jahr:-Zahl; 

ELSE Fehler:=TRUE; RETURN 
END; (* IF *) 

Pruef eDatum(D,Fehler) 

END StringToDatum; 


Die Prozedur «LiesDatum» kann nun folgendermaßen formuliert 
werden: 


PROCEDURE LiesDatum(VAR D : Datum); 

VAR Fehler : B00LEAN; 

Eingabe : ARRAY[0..10] OF CHAR; 

PROCEDURE StringToDatum wie oben 

BEGIN (« LiesDatum «) 

REPEAT 

ReadString(Eingabe); 

StringToDatum(Eingabe,D,Fehler); 

IF Fehler THEN WriteString(" ???”); WriteLn END 
UNTIL NOT Fehler 
END LiesDatum; 
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Wesentlich einfacher als die Eingabe gestalten sich in den meisten 
Fällen die entsprechenden Ausgabeprozeduren, da hier keine Plau¬ 
sibilitätsprüfungen vorgenommen werden müssen. Unsere Proze¬ 
dur «SchreibDatum» soll allerdings - wie mittlerweile gebräuch¬ 
lich - führende Nullen bei Tag- und Monatszahlen mit ausgeben 
«13.09.1987». 

PROCEDURE SchreibDatum(D : Datum); 

BEGIN 

WITH D DO 

Write(CHR(0RD(’0’)+Täg DIV 10)); 

Write(CHR(ORD(’0’)+Tag MOD 10)); 

Write(’.’); 

Wr ite(CHR(ORD(’0’)+Monat DIV 10)); 

Write(CHR(ORD(’0’)+Monat MOD 10)); 

Wrlte(’.’ ) ; 

WrlteCard(Jahr,4) 

END (** WITH ») 

END SchreibDatum; 


Und schließlich noch ein kleines Programm zum Testen der Proze¬ 
duren: 

MODULE DatumEinAusgabe; 

FROM InOut IMPORT ReadString, WriteString, WriteLn, Write, WrlteCard; 

TYPE Datum = RECORD 

Tag : [1..31]; 

Monat : [1..12]; 

Jahr : [1800..2100] 

END; 

PROCEDURE LiesDatum wie oben 
PROCEDURE SchreibDatum wie oben 

VAR Heute : Datum; 

BEGIN 

WriteString("Bitte geben Sie das heutige Datum ein: "); 
LlesDatum(Heute); 

WriteLn; 

SchreibDatum(Heute); 

WriteLn 

END DatumEinAusgabe. 


Probelauf: 

Bitte geben Sie das heutige Datum ein: 32.5.1987 
??? 

31,4,2000 

??? 

1.1.1988 

01.01.1988 
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Aufgabe: 

Schreiben Sie eine Funktionsprozedur 

'FrueherAls(Datuml ; Datum2 : Datum):BOOLEAN)', 

die genau dann den Wert «TRUE» annimmt, wenn das erste Datum 

einen Zeitpunkt vor dem zweiten beschreibt. 


7.5.4 Ein Modul zum Bruchrechnen 

Ein weiteres Beispiel stammt aus der Mathematik. Die Arbeit mit 
REAL-Zahlen ist relativ ungenau, da Rundungsfehler nicht ausge¬ 
schlossen werden können. Häufig werden aber REAL-Zahlen aus¬ 
schließlich als Dezimalbrüche eingesetzt und nicht zur Annähe¬ 
rung irrationaler Zahlen. Aus diesem Grund wäre es oftmals wün¬ 
schenswert, einen Datentyp zu haben, der den rationalen Zahlen 
(Brüche) entspricht. Rechnungen mit Brüchen sind immer genau 
(solange der zulässige Zahlenbereich nicht überschritten wird). 

In Modula-2 kann der Typ «Bruch» ohne weiteres selbst definiert 
werden: 

TYPE NatuerlicheZahl - CARDINAL; 

Bruch = RECORD 

Vorzeichen : [-1..+1]; 

Zaehler, Nenner : NatuerlicheZahl 
END; 


Bei dieser Definition wurde absichtlich der Typ «NatuerlicheZahl» 
anstelle von «CARDINAL» gewählt. Manche Modula-2-Systeme 
bieten neben «CARDINAL» oft zusätzlich die Typen «LONG- 
CARD» und «LONGINT», die einen wesentlich größeren Zahlen¬ 
bereich umfassen. Sollte einer dieser Typen auf Ihrem System 
verfügbar sein, so müssen Sie nur die Typdefinition für «Natuer¬ 
licheZahl» entsprechend ändern, um auch den Bereich der Brüche 
zu erweitern. 

Für den Typ «Bruch» müssen nun noch die benötigten Rechen¬ 
operationen sowie Möglichkeiten zur Ein- und Ausgabe bereitge¬ 
stellt werden. Dafür bietet sich selbstverständlich wieder ein eige¬ 
nes Bibliotheksmodul an, um auf diese Weise das gesamte Modula- 
2-System an dem neuen Typ teilhaben zu lassen. 

DEFINITION MODULE Brueche; 

(* Ein kleines Modul zum Bruchrechnen. Die Prozeduren 

’StringToBruch’ und ’LiesBruch’ akzeptieren folgende Darstellung: 
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Bruch::=NormalBruch j DezimalBruch. 

NormalBruch::=["+"|"-"]Zaehler["/"Nenner] . 

DezimalBruch::=["+"|VorkommaZahl["."[Nachkommazahl]]. 
Zaehler, Nenner, VorkommaZahl, NachkommaZahl ::= Ziffernfolge. 

Die Variable ’Okay’ zeigt eine gültige Umwandlung bzw. Eingabe an 

TYPE NatuerlicheZahl : CARDINAL; (* bzw. LONGCARD *) 

Bruch = RECORD 

Vorzeichen : [-1..+1]; 

Zaehler, Nenner : NatuerlicheZahl 
END; 

VAR Okay : BOOLEAN; 

PROCEDURE AddiereBruch(X,Y : Bruch; VAR Ergebnis : Bruch); 

PROCEDURE SubtrahiereBruch(X,Y : Bruch; VAR Ergebnis : Bruch); 
PROCEDURE MultipliziereBruch(X,Y : Bruch; VAR Ergebnis : Bruch); 
PROCEDURE DividiereBruch(X,Y : Bruch; VAR Ergebnis : Bruch); 
PROCEDURE KuerzeBruch(VAR Ergebnis : Bruch); 

PROCEDURE StringToBruch(S : ARRAY OF CHAR; VAR B : Bruch); 

PROCEDURE LiesBruch(VAR Ergebnis : Bruch); 

PROCEDURE SchreibBruch(B : Bruch); 

PROCEDURE SchreibBruchDezimal(B : Bruch; Feld, Stellen : CARDINAL); 
END Brueche. 


Zum Verständnis des Implementationsteils benötigt man nur 
etwas Schulwissen zum Bruchrechnen. Eine besondere Rolle spie¬ 
len dabei die Funktionen «ggT» (größter gemeinsamer Teiler) und 
«kgV» (kleinstes gemeinsames Vielfaches), auf die die Operationen 
«KuerzeBruch» und «AddiereBruch» zurückgreifen. Für den «ggT» 
gilt folgender Algorithmus: 

Wenn die größere Zahl durch die kleinere ohne Rest teilbar ist, 
dann ist die kleinere Zahl der ggT, 

andernfalls ist die größere Zahl durch den Rest der Teilung zu 
ersetzen 

und das Verfahren zu wiederholen. 

Ein Sonderfall ist zu beachten, wenn eine der (oder gar beide) 
Zahlen den Wert 0 hat. In diesem Fall ist der «ggT» nicht definiert. 

Da die obige Beschreibung noch zu ungenau ist und ohne Rekur¬ 
sion (folgt erst im nächsten Kapitel) nicht unmittelbar in eine 
Modula-2-Anweisung übersetzt werden kann, nun noch einmal das 
Ganze als Wiederholungsanweisung. 

Wiederhole 

Falls die erste Zahl kleiner als die zweite ist, 
dann vertausche die beiden Zahlen, 
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andernfalls ersetze die erste Zahl durch den Rest der Teilung der 
ersten durch die zweite Zahl, 
bis die erste Zahl den Wert 0 erreicht. 

Der ggT ist die zweite Zahl. 

Bitte überprüfen Sie, ob die beiden Algorithmen zum selben Resul¬ 
tat führen, indem Sie beide mit ein paar Zahlenpaaren durch¬ 
spielen. 

Das kleinste gemeinsame Vielfache (kgV, gemeinsamer Nenner) 
kann direkt mit dem ggT bestimmt werden: kgV(X,Y) = X*Y DIV 
ggT(X,Y). 

Der Algorithmus zum vollständigen Kürzen eines Bruches lautet: 

ZählerNeu = Zähler DIV ggT(Zähler,Nenner) 

NennerNeu = Nenner DIV ggTjZähler,Nenner). 

Frage: Aus welchem Grund wird in «KuerzeBruch» die Variable 
«temp» benötigt? 

Am kompliziertesten ist sicherlich die Addition zweier Brüche, da 
das Vorzeichen als eigene Größe behandelt werden muß und Ganz¬ 
zahl-Unterläufe abgefangen werden müssen. 

Die interessanteste Prozedur dürfte sich hinter «StringToBruch» 
verbergen, die wiederum mit einem Automaten realisiert wurde. 
Diese Prozedur akzeptiert sowohl Brüche der Form «Zähler/Nen¬ 
ner» als auch Dezimalbrüche. 

Die Prozeduren zur Aus- und Eingabe von Brüchen wiederum 
dürften keine Probleme mehr bereiten. 


IMPLEMENTATION MODULE Brueche; 

FROM InOut IMPORT ReadStrihg, WriteCard, Writelnt, Write; 

PROCEDURE ggT(X,Y : NatuerlicheZahl):NatuerlicheZahl; 

VAR temp : NatuerlicheZahl; 

BEGIN 

IF X"Y=0 THEN RETURN 1 END; 

REPEAT 

IF X<Y THEN temp:=X; X:=Y; Y:=temp ELSE X:=X MOD Y END 
UNTIL X=0; 

RETURN Y 
END ggT; 

PROCEDURE kgV(X,Y : NatuerlicheZahl):NatuerlicheZahl; 

BEGIN 

RETURN X DIV ggT(X,Y) * Y 
END kgV; 



158 Selbstdefinierte Typen 


PROCEDURE KuerzeBruch(VAR Ergebnis : Bruch); 

VAR temp : NatuerlicheZahl; 

BEGIN 

WITH Ergebnis DO 

IF Vorzeichen=0 THEN RETURN END; 
temp:=ggT(Zaehler, Nenner); 

Zaehler:=Zaehler DIV temp; 

Nenner:=Nenner DIV temp 

END (« WITH *•) 

END KuerzeBruch; 

PROCEDURE AddiereBruch(X,Y : Bruch; VAR Ergebnis : Bruch); 
BEGIN 

IF X.Vorzeichen=0 THEN Ergebnis:=Y 

ELSIF Y.Vorzeichen=0 THEN Ergebnis:=X 

END; (* IF «) 

Ergebnis.Nenner:=kgV(X.Nenner,Y.Nenner); 

X. Zaehler:=X.Zaehler*(Ergebnis.Nenner DIV X.Nenner); 

Y. Zaehler:=Y.Zaehler l *(Ergebnis.Nenner DIV Y.Nenner); 

IF X.Vorzeichen=-l 

THEN IF Y.Vorzeichen=-l 
THEN 

Ergebnis.Vorzeichen:=-l; 

Ergebnis. Zaehlei-:=X.Zaehler+Y.Zaehler 
ELSIF X.Zaehler>Y.Zaehler 
THEN 

Ergebnis.Vorzeichen:=-l; 

Ergebnis.Zaehler:=X.Zaehler-Y.Zaehler 
ELSIF X.Zaehler<Y.Zaehler 
THEN 

Ergebnis.Vorzeichen:=+l; 

Ergebnis.Zaehler:=Y.Zaehler-X.Zaehler 
ELSE Ergebnis.Vorzeichen:=0 
END 

ELSE IF Y.Vorzeichen=+l 
THEN 

Ergebnis.Vorzeichen:=+l; 

Ergebnis.Zaehler:=X.Zaehler+Y.Zaehler 
ELSIF X.Zaehler>Y.Zaehler 
THEN 

Ergebnis.Vorzeichen:»+1; 

Ergebnis.Zaehler:=X.Zaehler-Y.Zaehler 
ELSIF X.Zaehler<Y.Zaehler 
THEN 

Ergebnis.Vorzeichen:=-l; 

Ergebnis.Zaehleh:=Y.Zaehler-X.Zaehler 
ELSE Ergebnis.Vorzeichen:=0 
END 

END; 

KuerzeBruch(Ergebnis) 

END AddiereBruch; 

PROCEDURE SubtrahiereBruch(X,Y : Bruch; VAR Ergebnis : Bruch); 
BEGIN 

Y.Vorzeichen:=-Y.Vorzeichen; 

AddiereBruch(X,Y,Ergebnis) 

END SubtrahiereBruch; 
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PROCEDURE MultipliziereBruch(X,Y : Bruch; VAR Ergebnis : Bruch); 

BEGIN 

WITH Ergebnis DO 

Vorzeichen: =X.Vorzeichen*Y. Vorzeichen; 

Zaehler : =X.Zaehler*Y.Zaehler; 

Nenner:=X.Nenner “ Y.Nenner 
END; (* WITH *) 

KuerzeBruch(Ergebnis) 

END MultipliziereBruch; 

PROCEDURE DividiereBruch(X,Y : Bruch; VAR Ergebnis : Bruch); 

BEGIN 

IF Y. Vorzeichen^ THEN Ergebnis.Vorzeichen:-0; Okay:“FALSE; RETURN END; 
WITH Ergebnis DO 

Vorzeichen:=X.Vorzeiphen"Y.Vorzeichen; 

Zaehler:=X.Zaehler*Y.Nenner; 

Nenner:=X.Nenner*Y.Zaehler 
END; (x WITH ») 

KuerzeBruch(Ergebnis) 

END DividiereBruch; 

PROCEDURE StringToBruch(S : ARRAY OF CHAR; VAR B : Bruch); 

VAR i : CARDINAL; 

Zustand :(Anfang, ZaehlerLesen, NennerLesen, Nachkommastellen); 

BEGIN 

Zustand:=Anfang; Okay:=TRUE; i:=0; 

WITH B DO 

Vorzeichen:=+l; Zaehler:=0; Nenner:=0; 

WHILE (i<=HIGH(S)) AND (S[i]<>0C) DO 
CASE S[i] OF 

’+’ : IF Zustand<>Anfang 

THEN Okay:-FALSE; RETURN 
ELSE 

Zustand:“ZaehlerLesen; 

IF S[i] = ’-’ THEN Vorzeichen:—1 END 
END 

| ’ ’ : IF ZustandoAnfang THEN Okay: “FALSE; RETURN END 
| ’/’ : IF Zustand<>ZaehlerLesen 
THEN Okay:“FALSE; RETURN 
ELSE Zustand:“NennerLesen 
END 

| : IF Zustand<>ZaehlerLesen 

THEN Okay:“FALSE; RETURN 

ELSE Zustand:“Nachkommastellen; Nenner:=1; 

END 

| ’0 ’ . . * 9’ : CASE Zustand OF 

Anfang : Zustand:“ZaehlerLesen; 

Zaehler:=0RD(S[i] )-0RD(’0’ ) 

| ZaehlerLesen : 

Zaehler:=10“Zaehler+ORD(S[i])-0RD(’0’) 

| NennerLesen : 

Nenner:“10xNenner+0RD(S[i] )-0RD(’0’ ) 

| Nachkommastellen: 

Zaehler:“10xZaehler+ORD(S[i])-0RD(’0’); 
Nenner:»lOxNenner 
END (x CASE x) 

ELSE Okay:“FALSE; RETURN 
END; (* CASE *) 

INC(i) 

END; (x WHILE ") 

IF Nenner=0 
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THEN Nenner:=1; IF Zustand<>ZaehlerLesen THEN Okay:=FALSE END; 
END; (* IF Nenner=0 *) 

IF Zaehler=0 THEN Vorzeichen:=0 END; 

END (“ WITH ») 

END StringToBruch; 

PROCEDDRE LiesBruch(VAR Ergebnis : Bruch); 

VAR S : ARRAY[1..80] OF CHAR; 

BEGIN 

ReadString(S); StringToBruch(S,Ergebnis) 

END LiesBruch; 

PROCEDDRE SchreibBruch(B : Bruch); 

BEGIN 

IF B.Vorzeichen=-l 
THEN Write(’-’ ) 

ELSIF B.Vorzeichen-0 
THEN Write(’0’ ); RETURN 
END; (» IF *) 

WriteCard(B.Zaehler,1); 

IF B.Nenneril THEN Write(’/’); WriteCard(B.Nenner,1) END 
END SchreibBruch; 

PROCEDDRE SchreibBruchDezimal(B : Bruch; Feld, Stellen : CARDINAL); 

VAR i, Rest : CARDINAL; 

BEGIN 

WITH B DO 

Writelnt(Vorzeichen"INTEGER(Zaehler DIV Nenner),Feld-Steilen-1); 
Rest:=10*(Zaehler MOD Nenner); 

IF Stellen>0 THEN Write('.') END; 

FOR i:«l TO Stellen DO 

WriteCard(Rest MOD Nenner,1); 

Rest:«10*(Zaehler MOD Nenner) 

END (» FOR <•) 

END (" WITH «) 

END SchreibBruchDezimal; 

END Brueche. 


Schließlich folgt wiederum ein kleines Programm zum Testen des 
neuen Datentyps. 


MODULE BruchTest; 

FROM InOut IMPORT Write, WriteString, WriteLn, Read; 

FROM Brueche IMPORT Bruch, LiesBruch, SchreibBruch, AddiereBruch, 
SubtrahiereBruch, MultipliziereBruch, 
DividiereBruch, Okay; 

VAR Bl, B2, B : Bruch; 

Rechenzeichen, Antwort : CHAR; 
korrekt : B00LEAN; 

BEGIN 

WriteString("Bruchrechnen"); WriteLn; 

WriteString( "-"); WriteLn; 

WriteLn; 
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WriteString("Bitte geben Sie Aufgaben der Form "); 
WriteString("’Bruchl Rechenzeichen Bruch2’ ein.”); WriteLn; 
WriteLn; 

REPEAT 

LiesBruch(Bl); korrekt:=0kay; 

Read(Rechenzeichen); 

LiesBruch(B2); korrekt:=korrekt AND Okay; 

CASE Rechenzeichen OF 

’+’ : AddiereBruch(Bl,B2,B) 

| : SubtrahiereBruch(Bl,B2,B) 

] : MultipliziereBruch(Bl,B2,B) 

| : DividiereBruch(Bl,B2,B); korrekt:=korrekt AND Okay 

ELSE korrekt:=FALSE 
END; (* CASE *) 

IF korrekt 

THEN WriteString(" = "); SchreibBruch(B); WriteLn; 

ELSE WriteString("???"); WriteLn 
END; (» IF **) 

WriteString("Noch eine Aufgabe (J,N) ? "); 

REPEAT 

Read(Antwort); Antwort:=CAP(Antwort) 

UNTIL (Antwort“’«!’) OR (Antwort“’N’); 

WriteLn 

DNTIL Antwort=’N’ 

END BruchTest. 


Probelauf: 

Bruchrechnen 

Bitte geben Sie Aufgabe der Form 'Bruchl Rechenzeichen Bruch2' 
ein. 

-1.2 + 3/4 = -9/20 
Noch eine Aufgabe (J,N) ? J 
4/3 *3/4=1 

Noch eine Aufgabe (J,N) ? J 
1 : 0.125 = 8 

Noch eine Aufgabe (J,N) ? 

Aufgaben: 

1. Bestimmen Sie die Grenzen des Typs Bruch, also den größten 
und kleinsten positiven (von Null verschiedenen) Bruch. 

2. Erweitern Sie das Modul «Brueche» um eine Vergleichsfunktion 
«BruchKleiner», mit der geprüft werden kann, ob ein Bruch 
kleiner als ein anderer ist. 
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7.5.5 RECORD mit strukturierten Komponenten 

Ausgehend von den einfachen Datentypen können mit RECORD- 
und ARRAY-Typen beliebig zusammengesetzte Datenstrukturen 
angelegt werden. Das Finden der richtigen, d. h. dem Problem 
angemessenen Datenstruktur gehört zu den wichtigsten Program¬ 
mierarbeiten. Der Erfinder von Modula-2, der Schweizer Professor 
Niklaus Wirth, stellte in einem Buchtitel folgende Gleichung auf: 

Datenstrukturen + Algorithmen = Programme 

Beispiel: 

In einem Programm sollen Meßreihen bearbeitet werden. Dazu 
werden von den einzelnen Meßstationen folgende Daten gesendet: 

Datum und Uhrzeit der Messung, Name des Meßleiters, 400 Meß- 
wertpaare. 

Um die einzelnen Meßreihen später wieder den Stationen zuord¬ 
nen zu können, müssen diese auch mit aufgenommen werden. Eine 
adäquate Datenstruktur könnte etwa so aussehen: 

CONST AnzahlMesswerte = 400; 

TYPE Datum = RECORD 

Tag : [1..31]; 

Monat : [1..12]; 

Jahr : [1900..2100] 

END; 

Zeit = RECORD 

Stunde : [0..23]; 

Minute, Sekunde : [0..59] 

END; 

MessStation = [1. . 10]; (* 10 Stationen per Nr. identifiziert *) 

MesswertPaar = RECORD 

x, y : REAL 
END; 

Messwerte = ARRAY[1..AnzahlMesswerte] OF MesswertPaar; 

Name = RECORD 

Familienname, Vorname : ARRAY[0..30] OF CHAR 
END; 

MessReihe = RECORD 

Station : MessStation; 

DatumDerMessung : Datum; 

ZeitDerMessung : Zeit; 

Messleiter : Name; 

Messung : Messwerte 
END; 
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Die letzte Definition «MessReihe» ist sehr abstrakt. Hier kommen 
überhaupt keine Grundtypen mehr vor. Dennoch entspricht sie 
exakt den (fiktiven) Vorgaben. 

Aufgaben: 

1. Definieren Sie einen Datentyp Adresse (Name, Vorname, Straße, 
Postleitzahl, Ort, Telefon). Schreiben Sie hierfür eine Eingabe¬ 
prozedur sowie zwei Ausgabeprozeduren, die a) einen ganzen 
Datensatz und b) nur Name, Vorname und Telefon ausgeben. 

2. Schreiben Sie, aufbauend auf Aufgabe 1, eine kleine Adreßver- 
waltung für max. 100 Adressen. Fügen Sie eine Prozedur ein, die 
Ihre Adressen nach Namen und Vornamen sortiert (Quicksort). 
Ermöglichen Sie die Suche einer Adresse durch binäre Suche im 
sortierten Feld. 

3. Schreiben Sie die Prozeduren «LiesZeit» und «SchreibZeit» zur 
Ein- und Ausgabe von Variablen des Typs «Zeit» (22:01:14). 


7.5.6 RECORD mit Varianten 

Trotz der großen Datenvielfalt, die uns mittels RECORD-Kon- 
strulctionen zur Verfügung stehen, gibt es Fälle, in denen die bisher 
aufgezeigten Möglichkeiten nicht ausreichen. Dazu wieder ein 
Beispiel aus der Praxis der Personenkarteien: 

In einer (fiktiven) Firma gibt es drei Beschäftigungskategorien. 

Teilzeit: Der Arbeitnehmer enthält einen Stundenlohn. 

Fest: Der Arbeitnehmer erhält ein festes Monatsgehalt. 

Auftrag: Der Arbeitnehmer erhält eine prozentuale Gewinn¬ 
beteiligung. 

Mit den bisher bekannten Möglichkeiten müßte ein Typ «Beschäf¬ 
tigung» so aussehen: 


TYPE Beschaeftigung= RECORD 

Art : (Teilzeit, Fest, Auftrag); 
Stundenzahl : [0..200]; 
Stundenlohn : REAL; 

Monatslohn : REAL; 

Ergebnis : REAL; 

Prozentsatz : [10..20] 

END; 


Dieser Ansatz ist unbefriedigend, da bei einer Teilzeitkraft die 
Einträge für «Monatslohn», «AuftragsErgebnis» und «Prozentsatz» 
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grundsätzlich leer bleiben und nicht relevant sind. Hier wäre eine 
Fallunterscheidung schon bei der Anlage des Datentyps sinnvoll. 
Genau diese Fallunterscheidung kann mit Varianten RECORDs 
realisiert werden. Dazu die vollständige RECORD-Definition: 

Rekordtyp::“"RECORD" Datensatzliste Datensatzliste} "END". 

Datensatzliste::=[FesterTeil | VarianterTeil]. 

FesterTeil::“Feldnamenliste ":" Typ. 

Feldnamenliste::“Feldname Feldname ). 

VarianterTeil::="CASE" [Auswahlfeld] ":" Auswahltyp "OF" 

Variante ("|” Variante) ["ELSE" Datensatzliste] 
"END". 

Auswahlfeld::=Bezeichner. 

Auswahltyp::=Aufzählungstyp | CARDINAL | INTEGER | 

BOOLEAN | CHAt? | Unterbereichstyp. 

Variante::“Markenliste ":* Datensatzliste. 

Markenliste::“Marke Marke). 

Marke::“Konstante | Konstante ".." Konstante 


Wichtig an dieser Definition sind folgende Besonderheiten: 

□ Es können beliebig viele Variante Teile enthalten sein. 

□ Ein RECORD-Typ kann auch ausschließlich aus einem Varian¬ 
ten Teil bestehen. 

□ Das Auswahlfeld (tag-field) kann auch entfallen. 

□ Jede Variante hat ein eigenes «END». 

□ Das Auswahlfeld ist eine eigene RECORD-Komponente. 

□ Wie bei der CASE-Anweisung dürfen statt der Konstanten auch 
konstante Ausdrücke benutzt werden. 

Mit dieser Erweiterung ist das obige Problem leicht zu lösen: 

TYPE BeschArt = (Teilzeit, Fest, Auftrag); 

Beschaeftigung *» RECORD 

CASE Kathegorie : BeschArt OF 

Teilzeit : Stundenzahl : [0..200]; 

Stundenlohn : REAL; 

| Fest : Monatslohn : REAL; 
j Auftrag : Ergebnis : REAL; 

Prozentsatz : [10..20] 

END (" CASE *) 

END; (* RECORD ») 


Der Zugriff auf die einzelnen Komponenten erfolgt in der bekann¬ 
ten Weise: 


VAR Angestellter : Beschaeftigung; 


Angestellter. Kategorie: =Fest; 
Angestellter. Monatslohn: =3500.00 
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Achtung: Die Zugriffe auf die einzelnen Varianten werden weder 
vom Compiler noch vom Laufzeitsystem überprüft! Es sind also 
auch folgende Anweisungen möglich: 

Angestellter. Kategorie: =Teilzeit ; 

Angestellter. Prozentsatz:=12 ; 

Angestellter.Monatslohn:=3500.00; 

Hier werden keine Fehler gemeldet. Bei der Arbeit mit Varianten 
Records liegt die Verantwortung voll in den Händen des Program¬ 
mierers. 


7.5.7 Die CASE-Anweisung und Variante Records 

Der sicherste Weg liegt in der Verwendung der CASE-Anweisung: 

CASE Angestellter.Kathegorie OF 

Teilzeit : Angestellter.Stundenlohn:=24.50; 

| Fest : Angestellter .Monatslohn: =3500.00; 

| Auftrag : Angestellter.Prozentsatz:=12 
END; 


Oder mit der WITH-Anweisung: 

WITH Angestellter DO 
CASE Kathegorie OF 

Teilzeit : Stundenlohn:=24.50; 

| Fest : Monatslohn:=3500.00; 

| Auftrag : Prozentsatz:=12 
END 
END; 


Regel: 

Die CASE-Anweisung ist adäquate Anweisungsstruktur zur Daten¬ 
struktur varianter Records. 

Bei RECORDs mit Varianten wird sich die CASE-Anweisung in 
allen Ein- und Ausgabeprozeduren wiederfinden. 


Aufgabe: 

Erweitern Sie Ihr Adreßprogramm um die Angabe eines Stecken¬ 
pferdes (Tennis, Musik, Computer). Dabei sollen - je nach Hobby - 
noch weitere Informationen gespeichert werden: 

Tennis: Spielstärke (stark, mittel, schwach); 

Musik: Instrument (Gitarre, Orgel, Flöte) und Virtuosität 

(gut, schlecht) 
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Computer: Programmiersprache (Pascal, BASIC, Prolog) und 

Betriebssystem (CP/M, MS-DOS) 

Erweitern Sie Ihre Ein- und Ausgabeprozeduren entsprechend. 


7.5.8 Programmiertips 

Abschließend zu diesem Thema noch ein paar Tips zur Program¬ 
mierung von interaktiven Eingaberoutinen für RECORDs: 

□ Schreiben Sie erst komfortable Eingabeprozeduren für die Basis¬ 
typen der einzelnen Komponenten. 

□ Benutzen Sie eigene Routinen für Zahleneingaben. 

□ Geben Sie alle benötigten Hinweise für den Anwender. 

□ Prüfen Sie die Eingaben auf Plausibilität und Zulässigkeit. 

□ Setzen Sie die Eingabeprozedur für komplexe Records aus den 
Eingabeprozeduren für die Basistypen zusammen. 

□ Versuchen Sie möglichst, Records über Bildschirmmasken ein¬ 
zugeben. 

7.6 Prozeduren als Datentyp 

Auch ganze Prozeduren können als Datentyp aufgefaßt werden: 

Prozedur-Typ: :="PROCEDURE" [Formale-Typenlistej. 
Formale-Typenliste::= "(" [[''VAR"] Typ] ["VAR"] Typ} 

")"[":" Typ]. 

Für parameterlose Prozeduren gibt es den Standardtyp «PROC». 
Beispiele: 

TYPE Eingabeprozedur = PROCEDURE(CHAR); 

Zeichenumwandlung = PROCEDURE(CHAR,VAR 
CHAR); 

RealeFunktion = PROCEDURE(REAL) : REAL; 
BildschirmAktion = PROC; 

Damit ist ein sehr einfacher Weg gegeben, Prozeduren als Parame¬ 
ter an andere Prozeduren zu übergeben. Allerdings ist darauf zu 
achten, daß Variable eines Prozedurtyps keine Standardprozeduren 
zugewiesen werden dürfen. 
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Als Beispiel wollen wir nochmals das Sortieren eines Zahlenfel¬ 
des behandeln. Um die einzelnen Prozeduren des Programms mög¬ 
lichst universell zu gestalten, benutzen wir auch diesmal offene 
Felder und zusätzlich eine Vergleichsfunktion als Parameter. 
Dadurch kann der Prozedur «Sortierung» mitgeteilt werden, ob das 
übergebene Feld auf- oder absteigend geordnet werden soll. 


MODULE Zahlenfelder2; 

FROM InOut IMPORT ReadCard, WriteCard, WriteString, WriteLn; 

TYPE VergleichsFunktion = PROCEDURE(CARDINAL,CARDINAL):BOOLEAN; 

CONST MaxZahlen = 100; 

VAR Feld : ARRAY[1..MaxZahlen] 0F CARDINAL; 

Anzahl : CARDINAL; 

PROCEDÜRE Eingabe(VAR F : ARRAY OF CARDINAL; VAR A : CARDINAL); 

VAR NaechsteZahl : CARDINAL; 

BEGIN 
A: =0; 

WriteString("Bitte geben Sie eine Folge von max. "); 
WriteCard(MaxZahlen,1); 

WriteString(" CARDINAL-Zahlen ein."); WriteLn; 

WriteString("Ende der Zahlenfolge = 0"); WriteLn; 

ReadCard(NaechsteZahl); 

WHILE (A< =HIGH(F)) AND (NaechsteZahl>0) DO 
F[A]:=NaechsteZahl; 

ReadCard(NaechsteZahl); 

INC(A) 

END; (*• WHILE ») 

WriteLn 
END Eingabe; 

PROCEDÜRE Ausgabe(F : ARRAY OF CARDINAL; A : CARDINAL); 

CONST MaxSpalten - 10; (" 80-Zeichen-Bildschirm *•) 

BildschirmZeilen - 24; 

VAR i, ] : CARDINAL; 

Zeilenzahl : CARDINAL; 

SpaltenZahl : [1..MaxSpalten]; 

BEGIN 

IF (A+BildschirmZeilen-1) DIV BildschirmZeilen>MaxSpalten 
THEN SpaltenZahl:=MaxSpalten 

ELSE SpaltenZahl:=(A+BildschirmZeilen-1) DIV BildschirmZeilen 
END; (* IF **) 

Zeilenzahl:=(A+SpaltenZahl-l) DIV SpaltenZahl; 

F0R i:=1 T0 ZeilenZahl DO 

FOR j:=0 TO SpaltenZahl-1 DO 

IF i+j *ZeilenZahl<=A THEN WriteCard(F[i+]"ZeilenZahl-1],8) END 
END; (* FOR j *) 

IF SpaltenZahl<MaxSpalten THEN WriteLn END 
END; (* FOR i *) 

WriteLn 
END Ausgabe; 
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PROCEDORE Sortierung(VAR F : ARRAY OF CARDINAL; A : CARDINAL; 

V : VergleichsFunktion); 

VAR 1, J, kleinstes : CARDINAL; 

temp : CARDINAL; 

BEGIN (* Sortierung *) 

FOR i:=0 TO A-2 DO 
kleinstes:=i; 

FOR j: =i+l TO A-l DO 

IF V(F[j],F[kleinstes]) THEN kleinstes:=j END 
END; (« FOR j «) 

IF iokleinstes 

THEN temp:=F[i]; F[i]:=F[kleinstes]; F[kleinstes]:=temp 
END 

END (<* FOR i **) 

END Sortierung; 

PROCEDÜRE kleiner(X,Y : CARDINAL):B00LEAN; 

BEGIN 

RETÜRN X<Y 
END kleiner; 

PROCEDÜRE groesser(X,Y : CARDINAL):BOOLEAN; 

BEGIN 

RETURN X>Y 
END groesser; 

BEGIN (* Zahlenfelder2 ») 

Eingabe(Feld,Anzahl); 

WriteString("Aufsteigende Reihenfolge:"); WriteLn; 
Sortierung(Feld,Anzahl.kleiner); 

Ausgabe(Feld,Anzahl); 

WriteString('Absteigende Reihenfolge: ’); WriteLn; 

Sortierung(Feld,Anzahl,groesser); 

Ausgabe(Feld,Anzahl); 

END Zahlenfelder2. 

Probelauf: 

Bitte geben Sie eine Folge von max. 100 CARDINAL-Zahlen ein. 
Ende der Zahlenfolge = 0 
1 

23 

35 

22 

16 

4 

0 

Aufsteigende Reihenfolge: Absteigende Reihenfolge 


1 

35 

4 

23 

16 

22 

22 

16 

23 

4 

35 

1 
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Die erste höhere Programmiersprache war FORTRAN (FORmula 
TRANslator, Formelübersetzer). Sie wird nach wie vor im tech¬ 
nisch-naturwissenschaftlichen Bereich eingesetzt. Daß diese Pro¬ 
grammiersprache Rekursion ausdrücklich verbietet, war einer der 
Hauptgründe für die Schaffung neuer Programmiersprachen wie 
ALGOL, Pascal und schließlich Modula-2. «Erst wer die Rekursion 
beherrscht, kann richtig programmieren» - diesen Satz hören Infor¬ 
matik-Studenten bereits in der ersten Vorlesungsstunde. Wahr 
daran ist auf jeden Fall, daß die Verfügbarkeit rekursiver Algorith¬ 
men und rekursiver Datenstrukturen dem Programmierer ein 
mächtiges Werkzeug in die Hand gibt, dessen Beherrschung viel zur 
Lösung schwieriger Programmierprobleme beiträgt. In diesem 
Kapitel geht es um ein grundlegendes Verständnis der Rekursion. 

8.1 Rekursive Objekte 

Objekte heißen rekursiv, wenn sie sich selbst enthalten. Ein Begriff 
wird rekursiv definiert, wenn im Definitionsteil der Begriff selbst 
wieder verwendet wird. 

Ein ganz alltägliches Beispiel für eine rekursive Definition kann 
man bei Begriffen wie «Nachkomme» oder «Vorfahr» antreffen. Ein 
erster Ansatz wie 

Nachkomme ist ein Kind oder ein Enkel oder ein Urenkel oder ... 

führt nicht zum erwünschten Erfolg, da hier nur ein paar Beispiele 
für «Nachkommen» angegeben werden, das Wesen des Begriffs 
jedoch nicht erfaßt wird. Auch der zweite Versuch 

Nachkomme ist ein Kind oder das Kind eines Kindes oder das Kin d 
eines Kindes eines Kindes usw. 
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ist noch keine befriedigende Lösung. Allerdings versteckt sich hier 
schon das Rekursionsprinzip in 

□ der offensichtlich gleichförmigen Zusammensetzung der einzel¬ 
nen Nachkommen (Kind, Kind eines Kindes, Kind eines Kindes 
eines Kindes) 

□ dem Nachsatz «usw.» 

Die rekursive Definition von «Nachkomme» lautet somit: 

Nachkomme ist ein Kind oder das Kind eines Nachkommen. 

Diese Definition ist nicht nur kürzer als die vorhergehenden, sie ist 
auch die einzige, die die Bedeutung des Begriffs «Nachkomme» 
vollständig beinhaltet. Sie erlaubt die Prüfung beliebig langer 
Abstammungsketten auf Nachkommenschaft. Dazu ein kleines 
Beispiel: 

Hans ist das Kind von Otto. 

Petra ist das Kind von Hans. 

Hubert ist das Kind von Petra. 

Die Frage, ob Hubert ein Nachkomme von Hans ist, läßt sich nach 
unserer Definition folgendermaßen klären: 

Hubert ist ein Nachkomme von Hans, 
wenn (1) Hubert ein Kind von Hans ist oder 

(2) Hubert das Kind eines Nachkommen von Hans ist. 

Da (1) nicht zutrifft, muß geprüft werden, ob Hubert das Kind eines 
Nachkommen von Hans ist. Hubert ist das Kind von Petra. Wenn 
nun gezeigt werden kann, daß Petra ein Nachkomme von Hans ist, 
so gilt diese Beziehung auch für Hubert. 

Petra ist ein Nachkomme von Hans, 
wenn (1) Petra ein Kind von Hans ist oder 

(2) Petra das Kind eines Nachfolgers von Hans ist. 

Hier trifft (1) zu. Die Prüfung ist abgeschlossen, der Nachweis ist 
erbracht. Andere interessante rekursive Definitionen: 

Jeder Nachfolger einer natürlichen Zahl ist eine natürliche Zahl. 

Die Fakultät einer Zahl ist das Produkt aus dieser Zahl und der 
Fakultät der um eins erniedrigten Zahl. 
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8.2 Rekursive Figuren 

So richtig nachvollziehbar wird das Wesen der Rekursion in rekur¬ 
siv definierten geometrischen Figuren. 

Beispiel: 

A ist ein Quadrat, dem ein A so eingeschrieben ist, daß seine 
Eckpunkte die Seitenmitten der umschließenden Figur sind. 



B ist ein Rechteck, das im rechten Teil ein um 90 Grad gedrehtes, 
verkleinertes B und im linken Drittel ein verkleinertes B enthält. 
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8.3 Rekursive Prozeduren 

Wenn in Modula-2 eine Prozedur deklariert wird, so ist sie bereits 
nach dem Abschluß des Prozedurkopfes bekannt. Sie kann also in 
ihrem eigenen Anweisungsteil aufgerufen werden. 

PROCEDURE A ; 

BEGIN 

A; 

END A ; 


Den Selbstaufruf einer Prozedur kann man am besten nachvollzie¬ 
hen, indem man sich dieselbe Prozedur unter anderem Namen 
nochmals deklariert denkt, die an dieser Stelle aufgerufen wird. Es 
gilt vor allem uneingeschränkt das Prinzip der Lokalität: Bei jedem 
Aufruf werden die lokalen Variablen neu zur Verfügung gestellt. 

Aus dem bisher Gesagten ergibt sich bereits folgende Konse¬ 
quenz: Eine Prozedur darf sich höchstens bedingt rekursiv aufru- 
fen, da sonst eine endlose Rekursion vorliegt. 

In rekursiven Prozeduren muß immer ein Rekursionsabbruch 
eingebaut sein. 

Rekursive Prozeduren haben also prinzipiell folgende Gestalt: 


PROCEDURE RekursiverAufruf; 
BEGIN 

IF Bedingung 

THEN RekursiverAufruf 

END 

END RekursiverAufruf; 


Bisher war immer nur von Prozeduren die Rede, die sich selbst 
aufrufen. In diesem Fall spricht man von «direkter Rekursion». 

Es ist aber auch möglich, daß die Prozedur A eine Prozedur B 
aufruft und die Prozedur B wiederum die Prozedur A. Diese Art der 
Rekursion heißt «indirekt». Indirekte Rekursion ist mit Vorsicht 
zu genießen, da hier die Abbruchkriterien oftmals sehr undurch¬ 
sichtig sind. Um einen Eindruck von den möglichen Gefahren zu 
vermitteln, hier nochmals ein Beispiel aus dem Familienleben: 
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X ist der Vater von Y, wenn Y ein Kind von X ist. 

X ist ein Kind von Y, wenn Y der Vater von X ist. 

Hier wird Vater durch Kind und Kind durch Vater erklärt, insge¬ 
samt aber nichts ausgesagt. Solche Konstruktionen sind in Modula- 
2 durchaus möglich. Eine Prozedur kann eine andere aufrufen, 
obwohl diese noch nicht deklariert wurde. Voraussetzung dafür ist 
nur, daß sie (später) im selben oder einem äußeren Block definiert 
wird. 

Beispiel: 

PROCEDURE B; 

BEGIN 

A 

END B; 

PROCEDURE A; 

BEGIN 

B 

END A; 

Hinweis: Bei einigen älteren Systemen muß der Prozedurkopf einer 
noch nicht deklarierten Prozedur angegeben werden, bevor sie in 
einer anderen benutzt werden kann. Dieser Prozedurkopf wird mit 
dem Schlüsselwort «FORWARD» abgeschlossen. 

PROCEDURE A; FORWARD; (* Damit wird die Prozedur vor-deklariert *) 

PROCEDURE B; (* Hier kann jetzt auf A zugegriffen werden *) 

BEGIN 

A 

END B; 

PROCEDURE A; (».Erst hier wird A vollständig ausgefUhrt *) 

BEGIN 

B 

END A; 

Falls vorhanden, müssen die formalen Parameter bei dem vorwärts 
deklarierten Prozedurkopf und der späteren Ausführung überein¬ 
stimmen. 

Ein praktisches Beispiel für den Gebrauch indirekter Rekursion 
kann man in Programmen finden, die irgendwelche Ausgaben 
seitenweise formatieren: 
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PROCEDURE DruckeZeile(Zeile : ARRAY OF CHAR); 

BEGIN 

IF KeinPlatzMehrAufDerSeite THEN NeueSeite END; 
WriteString(Zeile) 

END DruckeZeile; 

PROCEDURE NeueSeite; 

BEGIN 

Write(SeitenVorschub); 

DruckeZeile(KopfZeile); 

DruckeZeile(Datum); 

DruckeZeile("") 

END NeueSeite; 


8.4 Die Fakultät 

Alles, was bisher über Prozeduren gesagt wurde, gilt natürlich auch 
für Funktionen! 

Als erstes, konkretes Beispiel wollen wir die Fakultät-Funktion 
in Angriff nehmen. Die exakte mathematische Definition lautet: 

Die Fakultät von 0 ist 1. 

Die Fakultät einer größeren Zahl als Null ist das Produkt aus dieser 
Zahl und der Fakultät der um 1 verringerten Zahl. 

oder (in mathematischer Schreibweise) 

f(x) = 1 falls x=0 
x*f(x-l) falls x>0 


Diese Definition kann nahezu eins zu eins in eine Modula-2- 
Funlction übertragen werden: 


PROCEDURE f(x : CARDINAL): CARDINAL; 
BEGIN 
IF x=0 

THEN RETURN 1 
ELSE RETURN x“f(x-l) 

END 
END f; 


Was passiert nun beim Aufruf von f(5)? 


f(5) - 5*f(4) 

= 5“4“f(3) 

= 5*4*3»f(2) 

= 5«4*3*2*f(l) 

= 5*4*3*2*l»f(0) 

= 5«4*3*2*1*1 

= 120 


(da 5<>0) 

(f(4)=4»f(3)) 

(f(3)=3 H f(2)) 

(f(2)=2*f(l)) 

(f(1)=l*f(0)) 

(f(0)=l) Rekursionsabbruch! 
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Vergleicht man diese Lösung mit den Versionen, die bei der 
WHILE- und FOR-Anweisung vorgestellt wurden, so erkennt man, 
daß die iterativen Lösungen (Iteration = Wiederholung) wesentlich 
schneller ausgeführt werden. Die Selbstaufrufe einer Prozedur 
benötigen Zeit und Speicherplatz, da jedesmal eine neue Umge¬ 
bung (lokale Variable, Parameter) erzeugt werden muß. Im Fall der 
Fakultät ist vom Standpunkt der Programmeffizienz auf jeden Fall 
die Lösung mit der FOR-Schleife vorzuziehen. 

Wenn man andererseits in einem Mathematikbuch die Fakultät 
sucht, wird ausschließlich die rekursive Definition gefunden. Wie 
gesehen, kann diese Formulierung problemlos übernommen und in 
einer adäquaten Programmstruktur dargestellt werden. Bei der 
Fakultät ist das Finden einer gleichwertigen iterativen Form sehr 
einfach. In vielen anderen Fällen ist dieser Weg nicht unmittelbar 
gegeben, so daß dann auf eine rekursive Programmierung nicht 
verzichtet werden kann. 


8.5 QUICKSORT 

Während beim vorhergehenden Beispiel noch eine einfache itera¬ 
tive Lösung gefunden werden konnte, ist das Folgende eine Parade¬ 
anwendung für die Rekursion. 


8.5.1 Überlegung 

Es geht dabei um das Sortieren eines Feldes (ARRAY[a..b] OF 
FeldElement). Der Sortieralgorithmus basiert auf dem Prinzip der 
Grobsortierung. Dabei wird die zu sortierende Datenmenge erst 
einmal in zwei Haufen geteilt, wobei alle Elemente des ersten 
kleiner als die des zweiten sind (Beispiel bei Karteikarten: erster 
Haufen die Buchstaben A bis K, zweiter Haufen I bis Z). Dann wird 
jeder der beiden Haufen nach demselben Verfahren (vor-)sortiert 
usw, bis die Haufen nur noch aus einem Element bestehen. 


8.5.2 Konzept 

Man kann somit folgendes Konzept für das Sortieren aufstellen: 
Sortieren eines (Teil-)Feldes: 

1. Wenn das Feld nur aus einem Element besteht, so ist es sortiert. 
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2. Ansonsten wird es so in zwei Teilfelder zerlegt, daß alle Ele¬ 
mente des einen kleiner als die des anderen sind. Dann wird 
jedes Teilfeld sortiert. 


8.5.3 Ausführung 

Ein Teilfeld wird durch die Angabe von Anfangs- und Endindex 
festgelegt. 


PROCEDURE sortiere(VAR F : Feld; von. bis : CARDINAL); 

VAR vonl, bisl, (* Indizes der Teilfelder *) 
von2, bis2 : CARDINAL; 

BEGIN 

IF bisivon (* nur wenn das Teilfeld aus mehr als einem Element besteht *) 
THEN 

zerlege(F,von,bis.vonl.bisl,von2,bis2); 
sortiere(F,vonl.bisl); 
sortiere(F,von2,bis2) 

END 

END sortiere; 


Jetzt muß die - noch nicht ausgeführte - Prozedur «zerlege» 
realisiert werden. Dazu benutzen wir zwei Hilfsvariable i und j. Am 
Anfang wird i auf von, j auf bis gesetzt. Ebenfalls am Anfang wird 
ein mittleres Element bestimmt. Wir wählen dazu das Element in 
der physikalischen Feldmitte. Dann wird, solange i kleiner als j ist, 
folgendes Verfahren praktiziert: 

i wird so lange erhöht, bis ein Feldelement gefunden ist, das 
größer als oder gleich wie das mittlere Element ist. 
j wird so lange erniedrigt, bis ein Feldelement gefunden wird, das 
kleiner als das mittlere Element ist. 

Falls i<j ist, werden die Feldelemente mit den Indizes i und j 
miteinander vertauscht und schließlich noch i erhöht und j ernied¬ 
rigt. 

Nach dem Durchlauf gilt - davon sollten Sie sich überzeugen 
daß alle Feldelemente zwischen «von» und «j» kleiner sind als die 
zwischen «i» und «bis». Die Feldelemente zwischen «j» und «i» 
sind genauso groß wie das mittlere Element und befinden sich 
bereits an der richtigen Stelle. Somit ergibt sich für die zerlegten 
Teilfelder: 

vonl:=von ; bisl:=j; 
von2:=i ; bis2:=bis ; 
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Die entsprechende Prozedur: 


PROCEDURE zerleget VAR F : Feld; von,bis : CARDINAL; 

VAR vonl,bisl,von2,bis2 : CARDINAL); 

VAR i,j : CARDINAL; 

Mitte : FeldElement; 

BEGIN 

Mitte:=F[(von+bis) DIV 2]; (* die physikalische Mitte ») 
i:=von; j:=bis; 

WHILE i<j DO 

WHILE F[i]<Mitte DO INC(i) END; 

WHILE Mitte<F[j] DO DEC(j) END; 

IF i<J 

THEN vertausche(F[i],F[j]); INC(i); DEC(j) 

END (« IF ») 

END; (" WHILE *•) 
vonl:=von; hisli-j; 
von2:-i; bis2:-bis 
END zerlege; 


8.6 Ausfüllen geschlossener Flächen 

Das nächste Beispiel stammt aus der Computergrafik. Dabei wird 
der Bildschirm als Zeichenfläche aufgefaßt, auf der jeder Punkt 
durch Angabe seiner Koordinaten (x,y) gesetzt (SetzePunkt(x,y)) 
werden kann. Die boolesche Funktion «IstPunktGesetzt(x,y)>> gibt 
darüber Auskunft, ob der Punkt (x,y) gesetzt ist (TRUE) oder nicht 
(FALSE). Gesucht ist nun eine Prozedur, die eine beliebig geschlos¬ 
sene Figur ausmalt. Sie soll als einzige Parameter die Koordinaten 
eines Punktes innerhalb dieser Figur erhalten. 

Ein erster Ansatz zur Lösung dieses Problems kann so formuliert 
werden: 

Falls der Punkt nicht gesetzt ist, dann male ihn aus und führe das 
Verfahren für alle vier Nachbarpunkte aus. 

Wenn Sie sich eine kleine Skizze machen, werden Sie schnell 
erkennen, daß das Verfahren wirklich zum Erfolg führt. 

PROCEDURE MaleAusl(x,y:CARDINAL); 

BEGIN 

IF NOT IstPunktGesetzt(x,y) 

THEN 

SetzePunkt(x,y); 

MaleAus(x+l,y); 

MaleAus(x-l,y); 

MaleAus(x,y+l); 

MaleAus(x,y-l) 

END (* IF *) 

END MaleAusl; 
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Wenn Sie mit einem grafikfähigen System arbeiten, so sollten Sie 
diese Prozedur testen. Bei Ihren Experimenten werden Sie folgende 
Feststellungen machen: 

1. Das Verfahren funktioniert bei kleinen Figuren, ist aber sehr 
langsam und macht manchmal «seltsame Pausen». 

2. Bei größeren Figuren, auch wenn diese einfache geometrische 
Formen aufweisen, bricht das Programm mit einer bislang unbe¬ 
kannten Fehlermeldung ab. 

Hier kommen wir zu einem echten Problem bei rekursiven Algo¬ 
rithmen auf Rechenanlagen. Wie schon gesagt, benötigt jeder 
Selbstaufruf einer Prozedur einen bestimmten Speicherplatz. Selbst 
wenn keine lokalen Variablen und Parameter vorliegen, muß doch 
jedesmal die Rücksprungadresse gespeichert werden, damit nach 
der Ausführung das Programm an der richtigen Stelle fortgesetzt 
werden kann. Aber auch der Speicherplatz des größten Computers 
ist begrenzt und damit auch die Anzahl der rekursiven Aufrufe. Die 
obige Prozedur ist extrem rekursiv, weshalb bei großen Figuren die 
Arbeit wegen Speichermangels einfach abgebrochen wird. Die Pro¬ 
zedur «bewegt sich» ausschließlich durch Selbstaufrufe erst einmal 
bis an den Rand einer Figur. Um später wieder an den Ausgangs¬ 
punkt zurückzugelangen (von dort aus werden ja dann die Nachbar¬ 
punkte untersucht), wird genauso oft, wie der Selbstaufruf erfolgte, 
der Prozedurrumpf ohne sichtbare Aktion ausgeführt. Das äußert 
sich hier in sichtbaren Pausen, die während des Ausmalens einge¬ 
legt werden. In Informatikerkreisen wird dieses unschöne Verhal¬ 
ten ganz bildhaft als «Nachklappern» der Rekursion bezeichnet. 

Beim Einsatz rekursiver Algorithmen ist also unbedingt darauf 
zu achten, daß 

□ die Rekursionstiefe (maximale Anzahl direkt hintereinander 
ausgeführter Selbstaufrufe) möglichst klein ist und 

□ das «Nachklappern» vermieden wird. 

Ein Weg zum Erfüllen dieser Forderung liegt darin, das Problem so 
weit wie möglich iterativ zu lösen und nur dann auf rekursive 
Aufrufe zurückzugreifen, wenn es nicht mehr anders geht. Es gibt 
zwar einen Fundamentalsatz der Informatik, der besagt, daß jeder 
rekursive Algorithmus in einen iterativen überführt werden kann. 
In dem Augenblick, in dem das iterative Äquivalent nur dadurch 
realisiert werden kann, daß die Schaffung neuer Umgebungen und 
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die Zwischenspeicherang von Ergebnissen und noch nicht ausge¬ 
führter Teilaufgaben expliziter Teil des Algorithmus werden, ist 
der Einsatz der rekursiven Lösung grundsätzlich vorzuziehen. Ein 
Beispiel für eine solche iterative Form findet der interessierte Leser 
in «N. Wirth, Algorithmen und Datenstrukturen mit Modula-2, 
Springer-Verlag, Berlin, Heidelberg, New York, Tokyo, 1985». 

Wir stehen hier erstmals vor einem Problem, das in der Program¬ 
mierpraxis oft auf tritt: Ein (an sich ideal einfacher) Algorithmus ist 
praktisch nicht einsetzbar. Die Prozedur «MaleAus» muß wesent¬ 
lich verbessert werden. Zum Verhindern überflüssiger Aufrufe bie¬ 
tet sich folgendes Verfahren an: 

Wenn der Punkt (x,y) nicht gesetzt ist, dann führe folgendes aus: 

Gehe vom Punkt (x,y) erst so weit nach links, bis ein Randpunkt 
erreicht wird. Speichere den letzten Punkt vor dem Rand in (l,y). 
Gehe vom Punkt (x,y) so weit nach rechts, bis ein Randpunkt 
erreicht wird. Speichere den letzten Punkt vor dem Rand in 
(r,y).Ziehe eine Linie von (l,y) bis (r,y). 

Führe dasselbe Verfahren für die Punkte (i,y+l) und (i,y-l) durch, 
wobei i alle Werte von 1 bis r annimmt. 

Hier wird wenigstens ein Teil der rekursiven Aufrufe gespart. 
Trotzdem ist das Verfahren vollständig, es wird nur ein Teil der 
Arbeit iterativ ausgeführt. Da nur waagerechte Linien gezogen 
werden, bietet sich folgende Prozedur an: 

PROCEDURE ZieheLinie(xl,yl,x2,y2:CARDINAL); (» yl = y2 ! *) 

VAR i : CARDINAL; 

BEGIN 

FOR i:=xl TO x2 DO SetzePunkt(i,yl) END 
END ZieheLinie; 


Die Übersetzung der Vorschrift in eine Prozedur ist nicht schwer: 

PROCEDURE MaleAus2(x,y : CARDINAL); 

VAR 1,r,i : CARDINAL; 

BEGIN 

IFIstPunktGesetzt(x,y) THEN RETURN END; 

l:=x; WHILE NOT IstPunktGösetzt(1,y) DO DEC(l) END; 

r:=x; WHILE NOT IstPunktGesetzt(r,y) DO INC(l) END; 

INC(l); DEC(r); (* Warum ? *) 

ZieheLinie(1,y,r,y); 

FOR i:=1 TO r DO 
MaleAus2(i,y+l); 

MaleAus2(i,y-l) 

END (* FOR *) 

END MaleAus2; 
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Mit dieser Prozedur können schon etwas größere Figuren ausge¬ 
malt werden. Dennoch werden übermäßig viele unnötige Tests 
durchgeführt. Bei einer einfachen Figur wie einem Rechteck bei¬ 
spielsweise führt bereits der erste Aufruf von «MaleAus2(i,y+l)» 
dazu, daß die Linie (l,y+l) bis (r,y+l) gezeichnet wird. Trotzdem 
wird die FOR-Schleife stur fortgesetzt und laufend «MaleAus2» 
aufgerufen, die jedesmal prompt über RETURN verlassen wird, da 
diese Punkte schon gesetzt sind. Ausweg bietet das Ersetzen der 
FOR-Anweisung durch zwei «intelligentere» WHILE-Anweisun- 
gen. Dazu muß jedoch nach außen bekanntgemacht werden, wel¬ 
che Linie bei einem Aufruf gezogen wurde. Aus diesem Grund 
bauen wir in «MaleAus3» eine verschachtelte Prozedur ein, die die 
bisherige Arbeit von «MaleAus» übernimmt, die Randpunkte der 
Linie jedoch als Referenzparameter nach außen gibt. 


PROCEDDRE MaleAus3(x,y : CARDINAL); 

VAR MaxLinks, MaxRechts : CARDINAL; 

PROCEDDRE Male(x,y : CARDINAL; VAR l,r : CARDINAL); 

VAR links .rechts : CARDINAL; 

BEGIN 

IF IstPunktGesetzt(x,.y) THEN RETDRN END; 
l:-x; WHILE NOT IstPunktGesetzt(l.y) DO DEC(l) END; 
r:=x; WHILE NOT IstPunktGesetzt(r.y) DO INC(l) END; 
INC(l); DEC(r); 

ZieheLinie(1,y,r,y); 
links:=1; 

WHILE links<«r DO 

Male(links,y+l.rechts,links); 

INC(links) 

END; (<• WHILE *) 
links:=1; 

WHILE links<=r DO 

Male(links,y-l.rechts,links); 

INC(links) 

END (* WHILE «) 

END Male; 

BEGIN (** MaleAus3 «) 

Male(x,y.MaxLinks.MaxRechts) 

END MaleAus3; 


Dieser Algorithmus arbeitet schon wesentlich besser als die vor¬ 
hergehenden. Aber immer noch bleibt das Problem, daß zu viele 
überflüssige Aufrufe bei der Bearbeitung der senkrechten Richtung 
ausgeführt werden. Folglich muß auch hier eine iterative Lösung 
gefunden werden. Der folgende Algorithmus wurde, basierend auf 
den hier vorgestellten Lösungen, von meinem Kollegen Bernd 
Edlinger ausgearbeitet. 
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PROCEDURE MaleAus4(x,y : CARDINAL); 

VAR Anfang, Ende : CARDINAL; 

PROCEDÜRE LinksAussen(x,y : CARDINAL) : CARDINAL; 
BEGIN 

WHILE NOT IstPunktGesetzt(x.y) DO DEC(x) END; 
RETURN x+1 
END LinksAussen; 

PROCEDURE RechtsAussen(x,y : CARDINAL) : CARDINAL; 
BEGIN 

WHILE NOT IstPunktGesetzt(x.y) DO INC(x) END; 
RETURN x—1 
END RechtsAussen; 

PROCEDURE Male(a,e,yO,dO : CARDINAL); 

VAR xl, xr, y, d, xlneu, xrneu : CARDINAL; 
fertig : BOOLEAN; 

PROCEDURE pruefe(1,r,yl,dl : CARDINAL); 

VAR Test : BOOLEAN; 

x : CARDINAL; 

BEGIN 

Test:=TRUE; 

FOR x:-l TO r DO 

IF IstPunktGesetzt(x,yl) 

THEN IF NOT Test 

THEN e:=x-l; Test: >=TRUE 
END 

ELSIF Test 
THEN 

IF NOT fertig THEN Male(a,e,y0,dO) END; 
a:=x; yO:=yl; dO:=dl; 
fertig:=FALSE; tfest:=FALSE 
END; (« IF *) 

END; (<• FOR *) 

IF NOT Test THEN e:=r 
END pruefe; 

BEGIN (* Male *) 

REPEAT 

xl:=b; xr:=e; y:=yO; d:=dO; 
fertig:=TRUE; 

xlneu:=LinksAussen(xl-l,y); 
xrneu:=RechtsAussen(xr+l,y); 
ZieheLinie(xlneu,y,xrneu,y); 
pruefe(xlneu,xl-2,y-d,-d); 
pruefe(xr+2,xrneu,y-d,-d); 
pruefe(xlneu,xrneu,y+d,d) 

UNTIL fertig 
END Male; 

BEGIN (» MaleAus4 ») 

Anfang:=LinksAussen(x,y); Ende:=RechtsAussen(x,y); 

IF Anfang<=Ende 

THEN 

Male(Anfang,Ende,y,1); 

Male(Anfang,Ende,y,-l) 

END 

END MaleAus4; 
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8.7 Ausdrücke 

Wie bereits angesprochen, ist in Modula-2 auch der Begriff «Anwei¬ 
sung» rekursiv definiert. Auch bei der exakten Festlegung des 
Terminus «Ausdruck» kommt die Rekursion ins Spiel. Wir wollen 
uns einmal die Syntax von einfachen CARDINAL-Ausdrücken 
ansehen: 

CARDINAL-Ausdruck: :=Term {AdditionsOperator Term}. 
Term::=Faktor (MultiplilcationsOperator Faktor}. 

Faktor::=CARDINAL-Zahl | "(" CARDINAL-Ausdruck ")" | 
FunlctionsName [AlctuelleParameter]. 

Wir haben es hier mit einer indirekten Rekursion zu tun. «CARDI¬ 
NAL-Ausdruck» wird mit «Term» definiert, «Term» mit «Faktor» 
und «Faktor» schließlich wieder mit «CARDINAL-Ausdruck». 
Unser nächstes Beispiel soll die Syntax eines eingegebenen CARDI¬ 
NAL-Ausdrucks überprüfen und gegebenenfalls eine passende Feh¬ 
lermeldung bringen. 

Interessant an der Lösung ist die unmittelbare Umsetzung der 
Definition in entsprechende Modula-2-Prozeduren. Bei unserem 
Beispiel lassen wir die Funktionsnamen weg. 

Faktor::=CARDINAL-Zahl | "(" CARDINAL-Ausdruck ")"• 
CARDIN AL-Zahl:: =Ziff er {Ziffer}. 

Auch die Definition von CARDINAL-Zahlen ist nicht vollständig, 
auf Hexadezimal- und Oktalkonstante wird hier verzichtet. 

Der zu untersuchende Ausdruck wird zunächst in eine String- 
Variable (ARRAY[0..80] OF CHAR) eingelesen. Die CARDINAL- 
Variable «Position» zeigt immer auf das gerade analysierte Zei¬ 
chen. Es wird davon ausgegangen, daß am Ende des Ausdrucks 
mindestens ein OC-Zeichen enthalten ist. Eventuell vorkommende 
Leerzeichen müssen überlesen werden. Das leistet die folgende 
Prozedur «LeerzeichenUeberlesen»: 

VAR Fehler : BOOLEAN; 

Position : CARDINAL; 

Eingabe : ARRAY[0..80] OF CHAR; 
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PROCEDURE LeerzeichenUeberlesen; 

BEGIN 

WHILE Eingabe[Position]=" ” DO INC(Position) END 
END LeerzeichenUeberlesen; 


Als nächstes schreiben wir eine Funktion, die aus der Stringvaria¬ 
blen eine CARDINAL-Zahl überliest. 


PROCEDURE CardinalZahl; 

BEGIN 

WHILE ]Eingabe[Position]>="0") AND (Eingabe[Position] <=" 9 ") DO 
INC(Position) 

END 

END CardinalZahl; 


Jetzt wird die Prozedur «Faktor» realisiert. Betrachten Sie bitte die 
Syntax von «Faktor». Falls das nächste Zeichen eine Ziffer ist, 
besteht der Faktor ausschließlich aus einer CARDINAL-Zahl. Ist 
das nächste Zeichen hingegen die öffnende runde Klammer, so 
muß ein CARDINAL-Ausdruck vorliegen. Auf diesen muß die 
schließende runde Klammer folgen. Ist das nicht der Fall, so liegt 
ein Klammerfehler vor. Falls weder eine CARDINAL-Zahl noch 
eine öffnende Klammer kommt, liegt ein Syntaxfehler vor. 


PROCEDURE Faktor; 

BEGIN 

LeerzeichenUeberlesen; 

IF (Eingabe[Position]> = "0" ) AND ]Eingabe[Position]<="9") 

THEN CardinalZahl 

ELSIF Eingabe[Position]="(" 

THEN 

INC(Posltion); 

CardinalAusdruck; 

IF Fehler THEN RETURN £ND; 

LeerzeichenUeberlesen; 

IF Eingabe[Position]<>" )" 

THEN 

Fehlermeldung]’")" fehlt!’.Position); 

Fehler:=TRUE 
END 
ELSE 

Fehlermeldung]"Illegale Zeichen".Position); 

Fehler:=TRUE 
END (* IF *) 

END Faktor; 


Jetzt kommt der Begriff «Term» an die Reihe. Zur Vereinfachung 
der Aufgabe wollen wir als Multiplikations-Operatoren hier * und / 
zulassen. Die Analyse von Wortsymbolen wie «DIV» und «MOD» 
ist zwar nicht besonders kompliziert, lenkt aber vom wesentlichen 
Aspekt der rekursiven Programmierung zu stark ab. 
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PROCEDURE Term; 

BEGIN 

Faktor; Leerzeichenüeberlesen; 

WHILE NOT Fehler AND 

((Eingabe[Position]“"*") OR (Eingabe[Position]="/")) DO 
INC(Position); Faktor; Leerzelchenüeberlesen 
END 

END Term; 


Bleibt schließlich noch der Begriff «CARDINAL-Ausdruck». Die 
Additions-Operatoren sind + und 


PROCEDURE CardinalAusdruck; 

BEGIN 

Term; Leerzeichenüeberlesen; 

WHILE NOT Fehler AND 

((Eingabe[Position]="+" ) OR (Eingabe[Position]-"-")) DO 
INC(Posltion); Term; Leerzeichenüeberlesen 
END 

END CardinalAusdruck; 


Bleibt zum Schluß nur noch die Ausführung der Prozedur «Fehler¬ 
meldung». Die soll die Fehlerstelle genau anzeigen. Dazu postieren 
wir unterhalb der Eingabezeile einen Pfeil a auf das Zeichen, auf 
das der übergebene Wert zeigt: 


PROCEDURE Fehlermeldung!Meldung : ARRAY OF CHAR; ZeichenNr : CARDINAL); 
VAR i : CARDINAL; 

BEGIN 

FOR i:=l TO ZeichenNr-1 DO Write(" ") END; 

Write(" / '"); WriteLn; 

WriteString(Meldung); WriteLn 
END Fehlermeldung; 


Ein Programm, das die syntaktische Analyse eines (Programm-) 
Textes vornimmt, nennt man normalerweise «Parser». Aus diesem 
Grund heißt unser Modul «AusdruclcParser». 

MODULE AusdruckParser; 

FROM InOut IMPORT Write, WriteString, WriteLn, ReadString; 

(* Deklarationsteil wie oben inklusive aller Prozeduren *) 

BEGIN 

WriteString!"Syntaktische Analyse von CARDINAL-AusdrUcken"); WriteLn; 

WriteString!"-"); WriteLn; 

WriteLn; 

WriteString!"Zugelassene Rechenzeichen: +-*/( )"); WriteLn; 
WriteLn; 

WriteString!"Ihr Ausdruck: "); WriteLn; 

ReadString!Eingabe); WriteLn; 

Position:=0; Fehler:=FALSE; 

CardinalAusdruck 
END AusdruckParser. 
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Probelauf: 

Syntaktische Analyse von CARDINAL-Ausdrücken 

Zugelassene Rechenzeichen: + -*/() 

Ihr Ausdruck: 

(1+14*(48-19*3 

A 

")" fehlt! 


8.8 Indirekte Rekursion in verschachtelten Blöcken 

Im Ausdruckparser wird vom Hauptprogramm nur die Prozedur 
«CardinalAusdruck» aufgerufen, «Faktor», «Term» und «Cardinal- 
Zahl» rufen sich nur gegenseitig bzw. werden von «CardinalAus- 
druck» gerufen. Aus diesem Grund bietet es sich an, diese Prozedu¬ 
ren lokal zu «CardinalAusdruck» zu deklarieren und somit aus der 
indirekten Rekursion eine quasi-direkte zu machen. Es ist sicher 
ein sinnvoller Gedanke, so lokal wie nur irgendwie möglich zu 
programmieren. 


PROCEDURE CardinalAusdruck; 

PROCEDDRE LeerzeichenUeberlesen; 

BEGIN 

WHILE Eingabe[Position]=" " DO INC(Position) END 
END LeerzeichenUeberlesen; 

PROCEDDRE Term; (* wird nur von 'CardinalAusdruck’ gerufen *) 

PROCEDDRE Faktor; (* wird nur von 'Term' gerufen *) 

PROCEDDRE CardinalZahl; (* wird nur von Faktor gerufen *) 

BEGIN 

WHILE (Eingabe[Position]>="0") AND (Eingabe[Position]<=”9") DO 
INC(Position) 

END 

END CardinalZahl; 

BEGIN (» Faktor ») 

Leerzeichenüeberlesen; 

IF (Eingabe[Position]>="0") AND (Eingabe[Position]<="9") 

THEN CardinalZahl 

ELSIF Eingabe[Position]=”(" 

THEN 

INC(Position); 

CardinalAusdruck; 
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IF Fehler THEN RETURN END; 

LeerzeichenUeberlesen; 

IF Eingabe[Position]<>")" 

THEN 

Fehlermeldung(’fehlt!’.Position); 

Fehler:=TRUE 
END 
ELSE 

Fehlermeldung("Illegale Zeichen".Position); 

Fehler:=TRUE 
END (* IF “) 

END Faktor; 

BEGIN (* Term *) 

Faktor; LeerzeichenUeberlesen; 

WHILE NOT Fehler AND 

((Eingabe[Position]="*") OR (Eingabe[Position]=”/")) DO 
INC(Position); Faktor; LeerzeichenUeberlesen 
END 

END Term; 

BEGIN (" CardinalAusdruck ") 

Term; LeerzeichenUeberlesen; 

WHILE NOT Fehler AND 

((Eingabe[Position]="+") OR (Eingabe[Position]="-")) DO 
INC(Position); Term; LeerzeichenUeberlesen 
END 

END CardinalAusdruck; 


Der rekursive Aufruf steckt in der lokalen Prozedur «Faktor», von 

der aus auf die globale Prozedur «CardinalAusdruck» zugegriffen 

wird. 

Aufgaben: 

1. Definieren Sie den Begriff «Vorfahre» mit den Begriffen «Vater» 
und «Mutter». 

2. Schreiben Sie die Prozedur «vertausche» (Quicksort). 

3. Fügen Sie die einzelnen Teile so zusammen, daß die Prozedur 
«sortiere» vollständig ist. 

4. Schreiben Sie ein Testprogramm, das ein Feld von 1000 Integer- 
Zahlen zufällig erzeugt, mit «sortiere» bearbeitet und das Ergeb¬ 
nis ausgibt. 

5. Machen Sie mit dem Programm aus Aufgabe 3 eine Testreihe, 
bei der Sie die Feldgröße variieren. Legen Sie eine Tabelle mit 
Feldgröße und Sortierzeiten an. 

6. Ändern Sie das Programm so, daß STRINGs sortiert werden. 

7. Welche Änderungen sind an «AusdruckParser» vorzunehmen, 
daß der Wert eines Ausdrucks berechnet wird? 
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Alle bisher bekannten Datentypen sind statischer Natur. Das 
heißt, daß eine Variable (eines solchen Typs) genau so lange exi¬ 
stiert wie die Umgebung, in der sie deklariert wurde. Die globalen 
Variablen eines Hauptprogramms z. B. sind während der gesamten 
Laufzeit des Programms vorhanden. 

Es gibt jedoch Aufgaben, bei denen manche Variable nur unter 
bestimmten Umständen benötigt werden. Ein häufig auftretendes 
Problem besteht auch darin, daß die Anzahl der benötigten Varia¬ 
blen nicht bekannt ist. Die Lösung mit Feldern ist in diesem Fall 
immer mit einem Unsicherheitsfaktor verknüpft. 

Wir wollen diese Problematik an einem Beispiel darstellen. Es 
soll ein Programm geschrieben werden, das die verschiedenen 
Wörter eines Textes zählt. Die Größe der zu untersuchenden Texte 
beträgt jeweils ca. 100 KByte. Die Datenstruktur würde mit den 
vorhandenen Mitteln etwa so aussehen: 

CONST MaxWortLaenge = ?? 

MaxWortZahl = ?? 

TYPE WortVorkommen = RECORD 

Wort : ARRAY[0..MaxWortLaenge] OF CHAR; 
Anzahl : Integer 
END; 

VAR WortListe ; ARRAY[1..MaxWortZahl] OF WortVorkommen; 
Gesamtzahl : 0..MaxWortZahl; 


Offen bleiben dabei noch die Konstanten «MaxWortLaenge» und 
«MaxWortZahl». Um auch längere Wörter speichern zu können, 
muß hier eine Zahl ab 30 eingesetzt werden, obwohl - aller Voraus¬ 
sicht nach - die durchschnittliche Wortlänge weit unter 10 bleibt. 
Es ist also schon an dieser Stelle offenkundig, daß die Variable 
«WortListe» zu zwei Dritteln leer bleibt. Andererseits besteht 
weiterhin die Gefahr, daß der Text Wörter mit größerer Länge 
enthält, die dann nicht mehr richtig verarbeitet werden. 
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Noch unsicherer ist die Bestimmung von «MaxWortZahl». 
Selbst wenn hier die Zahl 10000 eingesetzt wird (mittlere Wort¬ 
länge = 5, mittlere Häufigkeit = 2), ist nicht sichergestellt, daß 
wirklich alle vorkommenden Wörter gespeichert werden können. 
Zudem belegt das resultierende Feld einen Speicherbereich größer 
als 300 KByte (MaxWortLaenge * MaxWortZahl), wovon mit 
Sicherheit mehr als 65 % überflüssig ist. 

Eine weitere Schwierigkeit tritt auf, wenn die entsprechenden 
Algorithmen formuliert werden sollen. Bei jedem eingelesenen 
Wort muß geprüft werden, ob es bereits in der Liste vorhanden ist. 
Wenn ja, so muß der entsprechende Zähler weitergezählt werden, 
ansonsten ist es neu in die Liste einzufügen. Die schnelle binäre 
Suche funktioniert bekanntlich nur in einem geordneten Feld. Da 
es wenig Sinn macht, das Feld nach jedem Einfügen neu zu sortie¬ 
ren oder zu organisieren (die Einfügestelle bestimmen und den Rest 
des Feldes verschieben), bleibt nur die zeitaufwendige lineare 
Suche. 

Die Suche nach einem Ausweg aus diesem Dilemma führt zu den 
dynamischen Datenstrukturen. Denn alle diese Probleme können 
gelöst werden, wenn 

1. die Möglichkeit besteht, Variable bei Bedarf und in gewünschter 
Anzahl und Größe während des Programmablaufs zu erzeugen, 
und 

2. diese Variablen so strukturiert werden können, daß auf sie (je 
nach Problem) in möglichst effizienter Weise zugegriffen werden 
kann. 


9.1 Der Pointer-Typ 

Nun würde das gesamte Konzept einer Programmiersprache wie 
Modula-2 ad absurdum geführt, könnte man auf nicht deklarierte 
Variable nach Bedarf zugreifen und mit diesen arbeiten. Vielmehr 
muß hier der Wunsch angemeldet werden, daß eine Variable eines 
bestimmten Typs benötigt werden könnte. Diese Option auf eine 
Variable wird durch den Ausdruck «POINTER TO», der dem 
gewünschten Typ vorangestellt wird, ausgedrückt. 


Zeigertyp: :="POINTER" "TO" Typ. 
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Beispiel: 


TYPE Wort =ARRAY[0..30] 0F CHAR; 

VAR EventuellGebrauchtesWort : POINTER TO Wort; 


9.1.1 Erzeugen von dynamischen Variablen 

Die Variable «EventuellGebrauchtesWort» ist nicht vom Typ 
«Wort»! Sie ist vielmehr ein Hinweis (Zeiger, Pointer) auf eine 
(noch nicht existierende) Variable dieses Typs. Wird nun während 
des Programmablaufs eine Variable vom Typ «Wort» benötigt, so 
muß zunächst der entsprechende Speicherplatz bereitgestellt wer¬ 
den. Dafür gibt es «ALLOCATE» aus dem Modul «Storage» (in 
manchen Systemen auch «STORAGE»), 

ALLOCATE(ZeigerVariable, AnzahlSpeicherworte) 

Der Aufruf dieser Prozedur bewirkt, daß für die Variable, auf die die 
Zeigervariable hinweist (zeigt), ein Speicherbereich von Anzahl- 
Speicherworte zur Verfügung gestellt wird. Der benötigte Speicher¬ 
bereich kann mit der Standardfunktion «TSIZE» aus dem Modul 
«Storage» bestimmt werden. 

Beispiel: 

ALLOCATE(EventuellGebrauchtesWort,TSIZE(Wort)) 

Da normalerweise der benötigte Speicherplatz immer gleich dem 
einer statisch vereinbarten Variablen (VAR NeuesWort : Wort) ist, 
gibt es in manchen Modula-2-Systemen für die Konstruktion 

TYPE IrgendeinTyp = ... 

VAR ZeigerVar : POINTER TO IrgendeinTyp; 

ALL0CATE(ZeigerVar,TSIZE(IrgendeinTyp)) 

die Standardprozedur "NEW": 

... NEW(ZeigerVar) 


Hinweis: Da der Compiler zur Übersetzung von «NEW» auf die 
Prozedur «ALLOCATE» zurückgreift, muß diese in jedem Fall 
importiert werden. Da insbesondere bei neueren Systemen die 
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Verfügbarkeit von «NEW» nicht sichergestellt ist, wird in der Folge 
ausschließlich «ALLOCATE» verwendet. 

Nach «ALLOCATE» (oder «NEW») existiert somit eine neue 
Variable. Diese hat keinen eigenen Namen (deshalb auch oft 
«anonyme Variable»). Der Zugriff erfolgt über die zugehörige Zei¬ 
gervariable, indem an diese ein Hochpfeil angehängt wird. Der 
Ausdruck «ZeigerVar A » ist am besten so zu lesen: «Diejenige 
Variable, auf die ZeigerVar zeigt». In der Folge entspricht diese 
Variable genau einer normal (statisch) deklarierten. Da sie erst 
während der Laufzeit durch Ausführung der Prozedur «ALLO¬ 
CATE» entstanden ist, nennt man sie «dynamisch erzeugt». 


Beispiel: 

MODDLE ZeigerDemo; 

FROM Storage IMPORT ALLOCATE; 

FROM SYSTEM IMPORT TSIZE; 

FROM InOut IMPORT WriteString, ReadString, WriteLn, Read; 

TYPE Wort = ARRAY[0..30] OF CHAR; 

VAR EventuellGebrauchtesWört : POINTER TO Wort; 

Antwort : CHAR; 

BEGIN 

WriteString!"Wollen Sie fein Wort eingeben (J/N) ?"); 
REPEAT 

Read(Antwort); Antwort:=CAP(Antwort) 

UNTIL (Antwort-’J’ ) OR (Antwort-’N’); 

WriteLn; 

IF Antwort-’J’ 

THEN 

ALL0CATE(EventuellGebrauchtesWört,TSIZE(Wort)); 
Write(’Ihr Wort: ’); 

ReadString(EventuellGebrauchtesWört^); WriteLn; 
WriteString(’Ihr Wort war: ’); 

WriteString( EventuellGebrauchtesWört’'); 

WriteLn 
END (* IF ") 

END. 


9.1.2 Löschen von dynamischen Variablen 

Wenn eine derart dynamisch erzeugte Variable nicht mehr benötigt 
wird, kann der belegte Speicherplatz wieder freigegeben werden. 
Dafür sind die Prozeduren «DEALLOCATE» und «DISPOSE» (als 
Gegenstückzu «NEW») zuständig. «DEALLOCATE» muß aus dem 
Modul «Storage» importiert werden, auch wenn «DISPOSE» einge¬ 
setzt wird. 
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DE ALLO C ATE( ZeigerV ariable, AnzahlSpeicherworte) 

ist das Gegenstück zu «ALLOCATE». Wichtig bei einem Einsatz 
ist, daß «AnzahlSpeicherworte» genauso groß sein muß wie bei 
«ALLOCATE». Handelt es sich bei «AnzahlBytes» um dieselbe 
Größe wie bei einer statischen Variablen, so kann hier als Pendant 
zu «NEW» die Prozedur «DISPOSE(ZeigerVariable)» eingesetzt 
werden. Dabei gelten dieselben Einschränkungen wie bei «NEW». 


9.1.3 Gefahren bei der Arbeit mit dynamischen Variablen 

Der Wert von Zeigervariablen sind Speicheradressen. «ALLO¬ 
CATE» (oder «NEW») weist einer Zeigervariablen eine Adresse zu, 
an der sich ein bislang unbenutzter Speicherbereich befindet. 
Zusätzlich wird der benötigte Speicherbereich intern als belegt 
gekennzeichnet. Wird nun eine Zeigervariable ohne vorhergehen¬ 
des «ALLOCATE» (oder «NEW») benutzt, so kann das mitunter zu 
einem Absturz des gesamten Systems führen. Da in Modula-2 
Variable normalerweise nicht initialisiert werden, hat eine Zeiger¬ 
variable erst einmal einen zufälligen Wert, sie zeigt also auf irgend¬ 
einen Speicherbereich. Eine Zuweisung an die Variable, auf die 
diese Zeigervariable zeigt, hat somit zur Folge, daß in irgendwelche 
Speicherzellen Werte eingetragen werden. Da es sich dabei um 
wichtige, vom Betriebssystem benötigte Speicherbereiche handeln 
kann, ist ein mögliches Chaos vorgezeichnet. 

Auch «DEALLOCATE» oder «DISPOSE» dürfen nicht verwen¬ 
det werden, bevor eine entsprechende Variable geschaffen wurde. 
Die Folgen können ähnlich den oben beschriebenen sein. 


9.2 Dynamische Strings in Modula-2 

Ein erster Einsatz für Zeigervariable ist die Bereitstellung von 
dynamischen Strings, die 

□ Zeichenketten beliebiger Länge beinhalten können und 

□ nur den benötigten Speicherbereich belegen. 

In Modula-2 werden Zeichenketten üblicherweise als «ARRAY- 
[0..MaxZeichen] OF CHAR» dargestellt. Bei Zuweisungen werden 
die überflüssigen Zeichen mit 0C aufgefüllt. Es ist jedoch ganz 
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offensichtlich, daß zur Kennzeichnung des Endes einer Zeichen¬ 
kette nur ein (!) OC nötig ist. 

Die Idee der dynamischen Strings beruht nun darauf, daß zur 
Eingabe eine statische (Puffer-)Variable benutzt und zur Speiche¬ 
rung nur der unbedingt benötigte Speicherplatz belegt wird. Da 
dynamische Strings sehr häufig benötigt werden, schreiben wir ein 
neues Bibliotheksmodul mit dem Namen «DynStr». 

Allerdings funktioniert das Verfahren nur, wenn bekannt ist, wie 
der jeweilige Compiler Variable vom Typ String behandelt. Denn in 
vielen Fällen wird ein «ARRAY[0...] OF CHAR» byteweise abge¬ 
legt. Zur Bestimmung der benötigten Anzahl von Speicherworten 
wird im Implementationsteil die Variable «Packung» entsprechend 
gesetzt. Wir erinnern uns, daß der Anweisungsteil eines Implemen¬ 
tations-Moduls vor dem ersten Zugriff auf einen importierten 
Bezeichner ausgeführt wird. 

Achtung: In einigen älteren Systemen muß vor der Konstantenver¬ 
einbarung eine Exportliste mit allen exportierten Bezeichnern ste¬ 
hen, also 

EXPORT QUALIFIED MaxStringLaenge, StatString, DynString, ... 

DEFINITION MODULE DynStr; 

(* Liefert alle wichtigen Prozeduren zur Arbeit mit dynamischen 

Strings. Dynamische Strings eignen sich zur effizienten Speicherung 
von Zeichenketten. Die eigentliche Textverarbeitung (Einfügen, 
Verkürzen etc.) sollte hingegen nur mit statischen Strings gemacht 
werden *) 

CONST MaxStringLaenge = 80; 

TYPE StatString = ARRAY[0..MaxStringLaenge] OF CHAR; 

DynString = POINTER TO StatString; 

PROCEDURE ReadDynString(VAR S : DynString); 

(* Liest einen dynamischeh String mit Read aus InOut. 

Achtung: Falls S bereits einen Wert hat, ist dieser verloren! *) 

PROCEDDRE WriteDynString(S : DynString); 

(* Gibt einen dynamischen String mit Write aus InOut aus. Dadurch 
bleiben Ausgabeumleitungen wirksam *) 

PROCEDDRE MakeDynString(StatString : ARRAY OF CHAR; VAR S : DynString); 

(* Fertigt die dynamische Kopie eines statischen Strings an. 

Achtung: Falls S bereits einen Wert hat, ist dieser verloren! **) 

PROCEDURE MakeStatString(VAR StatString : ARRAY OF CHAR; S : DynString); 

(* Kopiert einen dynamischen String in einen statischen. Falls der 
dynamische String zu lang ist, wird der Rest abgeschnitten *) 
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PROCEDURE ForgetDynString(VAR S : DynString); 

(* Gibt den Speicherplatz wieder frei. Nach dem Aufruf dieser 
Prozedur ist der Inhalt von S verloren “) 

PROCEDURE DynStringLength(S : DynString):CARDINAL; 

( H Liefert die Länge eines dynamischen Strings *) 

PROCEDURE DynStringLess(Sl, S2 : DynString):BOOLEAN; 

(* Vergleicht zwei dynamische Strings. Wird TRUE, wenn der erste 
String in alphabetischer Reihenfolge vor dem zweiten kommt, 
sonst FALSE *) 

END DynStr. 


Hier folgt nun der entsprechende Implementationsteil. Bitte beach¬ 
ten Sie, daß die Konstante «EOL» bei manchen Systemen im 
Modul «ASCII» versteckt ist. 


IMPLEMENTATION MODULE DynStr; 

FROM STORAGE IMPORT ALLOCÄTE, DEALLOCATE; 

FROM InOut IMPORT Read, Write, EOL; 

TYPE TestString = ARRAY[0..15] OF CHAR; 

VAR Packung : CARDINAL; 

PROCEDURE length(S : ARRAY OF CHAR) : CARDINAL; 

VAR i : CARDINAL; 

BEGIN 
i: =0; 

WHILE (1<=HIGH(S)) AND (S[i]>0C) DO INC(i) END; 

RETURN i 
END length; 

PROCEDURE MakeDynString(StätString : ARRAY OF CHAR; VAR S : DynString); 
VAR BenoetigteWorte, AnzahlBytes, i : CARDINAL; 

BEGIN 

AnzahlBytes:=length(StatString)+l; 

BenoetigteWorte:=(AnzahlBytes+Packung-1) DIV Packung; 

ALLOCATE(S,BenoetigteWorte); 

FOR i:=0 TO AnzahlBytes-1 DO S~[i]:=StatString[i] END; 

S~[AnzahlBytes] : =0C 
END MakeDynString; 

PROCEDURE MakeStatString(VAR StatString : ARRAY OF CHAR; S : DynString); 
VAR i : CARDINAL; 

BEGIN 

FOR 1:=0 TO length(S~) DO 
IF i>HIGH(StatString) 

THEN RETURN 

ELSE StatString[i]:-S~[i] 

END (* IF *) 

END (* FOR ») 

END MakeStatString; 

PROCEDURE ReadDynString(VAR S : DynString); 

VAR Puffer : StatString; 
i : CARDINAL; 

Zeichen : CHAR; 
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BEGIN 

i:=0; 

REPEAT 

Read(Zeichen); Puffer[i]:=Zeichen; INC(i) 

UNTIL (i>MaxStringLaenge) OR (Zeichen-EOL); 

IF Zeichen=EOL THEN Puffer[i-1]:=0C; 

MakeDynString(Puffer,S) 

END ReadDynString; 

PROCEDDRE WriteDynString(S : DynString); 

VAR i : CARDINAL; 

BEGIN 

i : =0; WHILE S~[i]oOC DO Write(S~[i] ); INC(i) END 
END WriteDynString; 

PROCEDURE ForgetDynString(VAR S : DynString); 

VAR BenoetigteWorte, AnzahlBytes, i : CARDINAL; 

BEGIN 

AnzahlBytes:=length()+l; 

BenoetigteWorte:=(AnzahlBytes+Packung-1) DIV Packung; 
DEALLOCATE(S,BenoetigteWorte) 

END ForgetDynString; 

PROCEDURE DynStringLength(S : DynString);CARDINAL; 

BEGIN 

RETURN length(S~) 

END DynStringLength; 

PROCEDURE DynStringLess(Sl, S2 : DynString) : B00LEAN; 

VAR i ; CARDINAL; 

BEGIN 

i: =0; 

LOOP 

IF (Sl / '[i]=S2 / '[i] ) AND (Sl / '[i]< >0C) 

THEN INC(i) 

ELSE RETURN Sl~[i]<S2~[i] 

END (* IF *) 

END (* LOOP ») 

END DynStringLess; 

BEGIN 

Packung:=16 DIV TSIZE(TestString) 

END DynStr. 


Als Beispiel folgt nun ein kleines Programm, das sämtliche in 
einem Text vorkommenden Wörter in einem Feld von dynami¬ 
schen Strings ablegt und die Vorkommen zählt. Das Programm ist 
aufgrund der ARRAY-Struktur relativ langsam. 

In der Prozedur «Einfuegen» wird zunächst ein temporärer dyna¬ 
mischer String (temp) aus dem übergebenen Wort erzeugt. Dann 
wird die gesamte vorhandene Wortliste durchsucht, ob dieses Wort 
bereits gelesen wurde. Die Gleichheit wird auf «DynStringLess» 
zurückgeführt nach der Regel: 

Zwei Wörter sind gleich, wenn keines der beiden vor dem anderen 
kommt. 
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Somit wird der Ausdruck 

DynStringLess(L[i].Wort ; temp) OR DynStringLess(temp,L[i].Wort) 

TRUE, wenn die beiden Strings ungleich sind, 

FALSE, wenn sie in allen Zeichen übereinstimmen. 

Wird das Wort in der Liste gefunden, so wird die Anzahl der 
Vorkommen erhöht und die temporäre Variable gelöscht (Forget- 
DynString). Andernfalls wird die temporäre Variable am Ende der 
Liste angehängt und die Listengröße (A) erhöht. 

Bei der Prozedur «Sortiere» handelt es sich um den rekursiven 
Quicksort-Algorithmus in etwas komprimierter Form. Man sieht, 
daß auch die Zuweisung mit dynamischen Strings problemlos 
funktioniert, solange man sich auf Operationen wie «Vertauschen» 
beschränkt. 

Das Einlesen der Wörter übernimmt unser bekannter Automat. 


alter Zustand 

gelesenes 

Zeichen 

Aktion 

neuer Zustand 

ZeichenLesen 

kein 

Buchstabe 

- 

- 

ZeichenLesen 

Buchstabe 

Puffervariable 

initialisieren 

WortLesen 

WortLesen 

Buchstabe 

Zeichen 

anhängen 

— 

WortLesen 

kein 

Buchstabe 

Puffer 

einfügen 

ZeichenLesen 


Für die Ausgabe wurde keine eigene Prozedur geschrieben, da sie in 
einer einzigen FOR-Anweisung realisiert werden kann. 


MODULE WortHaeufigkeiten; 

FROM DynStr IMPORT StatString, DynString, MakeDynString, MakeStatString, 
ForgetDynString, DynStringLess, WriteDynString, 

MaxStrihgLaenge; 

FROM InOut IMPORT Read, Openlnput, Closeinput, Done, WriteCard, 
WriteString, WriteLn; 
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CONST MaxWortZahl = 1000; 
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TYPE WortVorkommen = RECORD 

Wort : DynString; 

Anzahl : CARDINAL 
END; 

WortListe = ARRAY[1..MaxWortZahl] OF WortVorkommen; 

VAR Woerter : WortListe; 

Gesamt, i : CARDINAL; 

Puffer : StatString; 

ZeichenZahl : [0..MaxStringLaenge]; 

Zeichen : CHAR; 

Zustand : (ZeichenLesen, WortLesen); 

PROCEDÜRE Einfuegen(S : StatString; VAR A : CARDINAL; VAR L : WortListe); 
VAR i : CARDINAL; 

temp : DynString; 

BEGIN 

MakeDynString(S,temp); 

i: =1; 

WHILE (i<=A) AND (DynStringLess(L[i].Wort,temp) OR 
DynStringLess(temp,L[i].Wort)) DO INC(i) END; 

IF i<=A 

THEN INC(L[i].Anzahl); ForgetDynString(temp) 

ELSIF A<MaxWortZahl 

THEN INC(A); L[A].Wort:=temp; L[A].Anzahl:-1 

ELSE WriteString("Feld ist zu klein!"); WriteLn; HALT 

END 

END Einfuegen; 

PROCEDÜRE Sortlere(VAR L : WortListe; von, bis : CARDINAL); 

VAR i,J : CARDINAL; 

temp, test ; DynString; 

BEGIN 

i:=von; J:=bis; test:=L[(i+J) DIV 2)]; 

WHILE i<j DO 

WHILE DynStringLess(L[i],test) DO INC(i); 

WHILE DynStringLess(test,L[J]) DO DEC(j); 

IF i<=j 

THEN temp:=L[i]; L[i]:=L[j]; L[j]:=temp; INC(i); DEC(j) 

END (» IF ») 

END; (* WHILE «) 

IF von<j THEN Sortiere(L,von,J) END; 

IF i<bis THEN Sortiere(L,i,bis) END 
END Sortiere; 

BEGIN (* WortZahl *) 

WriteString("Worthäufigkfeiten in einem Text"); WriteLn; 

WriteString( "-"); WriteLn; 

WriteLn; 

OpenInput(""); IF NOT Done THEN WriteString("Keine Datei!"); HALT END; 
Gesamt:=0; Zustand:=ZeichfenLesen; 

Read(Zeichen); 

WHILE Done DO 
CASE Zustand OF 

ZeichenLesen : IF (CAP(Zeichen)>=’A’) AND (CAP(Zeichen)<=’Z’) 

THEN 

ZeichenZahl:=0; 

Puffer[ZeichenZahl]:=Zeichen; 

Zustand:=WortLesen 
END 
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| WortLesen : IF (CAP(Zeichen)>=’A’) AND (CAP(Zeichen)<=’Z’) 
THEN 

IF ZeichenZahl<MaxStringLaenge 
THEN 

INC(ZeichenZahl); 

Puffer[ZeichenZahl]:=Zeichen 
END; 

ELSE 

IF ZeichenZahl<MaxStringLaenge 
THEN Puffer[ZeichenZahl+1]:=0C 
END; 

Einfuegen(Puffer.Gesamt.Woerter); 

Zustand:=ZeichenLesen 
END 

END; (» CASE ») 

Read(Zeichen) 

END; (« WHILE *) 

Closeinput; 

Sortiere(Woerter,1.Gesamt); 

FOR i:=l TO Gesamt DO 

WriteCard(Woerter[i].Anzahl,5); 

WriteString(" x "); 

WriteDynString(Woerter[i].Wort); 

WriteLn 
END (» FOR ») 

END WortHaeufigkeiten. 


Probelauf: (Eingabedatei war das Definitionsmodul von DynStr 
ohne Kommentare) 

Worthäufigkeiten in einem Text 

Input from: DYNSTR.DEF 
3 x ARRAY 
1 x BOOLEAN 
1 x CARDINAL 
3 x CHAR 
1 x CONST 

1 x DEFINITION 

2 x DynStr 

8 x DynString 
1 x DynStringLength 
1 x DynStringLess 
1 xEND 

1 x ForgetDynString 
1 x MODULE 
1 x MalceDynString 

1 x MakeStatString 

2 x MaxStringLaenge 

3 x OF 
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1 x POINTER 

7 x PROCEDURE 

1 x ReadDynString 

8 x S 

4 x StatString 
1 x TO 
1 x TYPE 
4x VAR 

I x WriteDynString 
Aufgaben: 

1. Ergänzen Sie das Modul «DynStr» um eine Funktionsprozedur, 
die die erste Position eines statischen Teilstrings in einem 
dynamischen String zurückgibt. Falls der Teilstring nicht vor¬ 
kommt, soll der Rückgabewert 0 sein. 

Beispiel: 


VAR TestString : DynString; 

MakeDynString("Modula-2".TestString); 

DynStringPos("du".TestString) -> 3 

DynStringPos("Modula".TestString) -> 1 
DynStringPos("Hallo".TestString) -> 0 

2. Die Rückführung der Gleichheit zweier Strings auf Kleiner 
(DynStringLess) ist sehr rechenintensiv, da zwei komplette Ver¬ 
gleiche notwendig sind. Erweitern Sie das Bibliotheksmodul 
«DynStr» um die Funktionsprozedur «DynStringEqual», die die 
Gleichheit in einem Durchgang bestimmt. 

3. Ergänzen Sie das Programm «WortHaeufiglceiten» um eine Aus¬ 
gabeprozedur, mit der die Ausgabe auch umgeleitet werden 
kann. 
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9.3 Rekursive Datenstrukturen 

Betrachten wir einmal folgende rekursive Definition: 

«Eine Liste ist entweder leer, oder sie besteht aus einem Kopf, 
gefolgt von einer Liste.» 

Eine solche Datenstruktur ist mit statischen Datentypen nicht 
darstellbar. Die Konstmktion 

TYPE Liste = RECORD 

CASE leer : BOOLEAN OF 
TRUE : (» nichts *) 

|FALSE: Kopf : IrgendEinTyp; 

Rest : Liste 
END (» CASE <•) 

END; (* RECORD *) 

wird vom Compiler mit einer Fehlermeldung wie «unbekannter 
Typ» hei «Rest: Liste» zurückgewiesen. Im Gegensatz zu Prozedu¬ 
ren, die nach dem Prozedurkopf bereits bekannt sind (also auch im 
eigenen Anweisungsteil), muß eine Typdefinition erst vollständig 
abgeschlossen sein, ehe auf den neudefinierten Typbezeichner 
zugegriffen werden kann. 

Da eine Variable vom Typ «Liste» beliebig viele Elemente ent¬ 
halten kann, kann der benötigte Speicherbereich während des 
Übersetzens nicht bestimmt werden. Aus diesem Grund entzieht 
sich die Struktur «Liste» einer gleichen Behandlung wie statische 
Datentypen. 

Dennoch ist der Datentyp «Liste» in Modula-2 realisierbar. 
Rekursive Datenstrukturen können mit Zeigertypen zusammenge¬ 
baut werden: 

TYPE Liste = POINTER TO Kopf 
Kopf- RECORD 

Inhalt : IrgendEinTyp 
Rest : Liste 
END; 


Interessanterweise wird diese Definition vom Compiler akzeptiert, 
obwohl in der Definition von «Liste» auf einen Typ namens «Kopf» 
Bezug genommen wird und dieser Typ an dieser Stelle noch nicht 
bekannt ist. Wir haben es hier mit der einzigen Ausnahme der 
Regel «erst deklarieren, dann verwenden» zu tun: 

Bei der Definition eines Pointer-Typs darf auf Typen zugegriffen 
werden, die erst später definiert werden. 
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9.3.1 Listen 

Eine Liste ist offenbar eine Speicherstruktur, die jede beliebige 
Größe annehmen kann. Je nachdem, wie eine Liste organisiert ist, 
d. h. in welcher Reihenfolge Listenelemente in eine bestehende 
Liste eingefügt und entfernt werden, unterscheidet man zwischen 

□ Stapel-Strukturen, bei denen das zuletzt eingefügte Element als 
erstes wieder entfernt wird, und 

□ Puffer-Strukturen, bei denen die Reihenfolge von Einfügen und 
Entfernen übereinstimmt. 

Wir wollen nun eine einfache Liste aufbauen. Die erste Überlegung 
ist, wie wir eine leere Liste darstellen können. Hierfür gibt es einen 
ausgezeichneten Zeiger, eine Zeigerkonstante sozusagen, mit dem 
Namen «NIL», der von dem lateinischen Wort «nihil» (nichts) 
abgeleitet wurde. Diese Konstante kann jeder Zeigervariablen zuge¬ 
wiesen werden. Damit später untersucht werden kann, ob ein 
Zeiger den Wert «NIL» (oder den eines anderen Zeigers) hat, müs¬ 
sen auch Vergleiche von Zeigern möglich sein. In der Tat, Zeigerva¬ 
riable können mit den Operatoren = und <> (bzw. #) verglichen 
werden. 

Beispiel: 

VAR p,q : POINTER TO CARDINAL; 

IF p=q THEN ... 

Sind zwei Zeigervariable gleich, so bedeutet das, daß sie auf die¬ 
selbe dynamische Variable zeigen. Deren Inhalte (p A und q A ) sind 
dann nicht nur in dem Sinn gleich, daß sie gleiche Werte enthalten, 
sie sind sogar in dem Sinn identisch, daß es sich um dieselben 
Speicherzellen handelt! Es ist also folgendes zu beachten: 

Aus 'p=q' folgt immer 'p A = q A ' oder 'p=NIL' und 'q=NIL'. 

Dieser Schluß ist jedoch nicht umkehrbar! 

Beispiel: 


VAR p,q : POINTER TO CARDINAL; 
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ALL0CATE(p,TSIZE(CARDINAL)); 

:=12345; 

q:=p; (* Jetzt zeigen p und q auf dieselbe Variable, es gilt 

p~ - q~ - 12345 *) 

ALL0CATE(q,TSIZE(CARDINAL)); 

(" q erhält dadurch einen neuen Wert M ) 
q A :-12345; (« Jetzt gilt zwar wieder p~ - q~ = 12345. Die Relation 

p - q ist aber nicht mehr erfüllt *) 

Zurück zu unserer Liste. Sie wird laut obiger Definition durch 
einen Zeiger auf den Listenkopf dargestellt. Der Listenkopf selbst 
enthält einen Zeiger auf den Rest der Liste. Ein Algorithmus zum 
Einfügen eines neuen Elementes am Anfang der Liste kann somit 
so formuliert werden: 

Erzeuge einen neuen Kopf und hänge an diesen die bisherige Liste 


TYPE Liste = POINTER TO Kopf; 

Kopf = RECORD 

Inhalt : CARDINAL; (* oder irgendein anderer Typ ") 
Rest : Liste 
END; 

VAR ZahlenListe, BisherigeListe : Liste; 

NeuesElement : CARDINAL; 


(* Einfügen von NeuesElement in die ZahlenListe *) 
BisherigeListe:=ZahlenListe; (* Zwischenspeichern *) 

ALL0CATE(ZahlenListe,TSIZE(Kopf)); (* Neuen Kopf erzeugen H ) 

ZahlenListe''. Inhalt: “NeuesElement; (» Inhalt zuweisen *) 
ZahlenListe''.Rest: =BisherigeListe; ( * BisherigeListe anhängen * ) 


Das Entfernen des ersten Listenelementes (Kopf) geschieht in ana¬ 
loger Weise: 

VAR ZahlenListe, ListenKopf : Liste; 

ErstesElement : CARDINAL; 


ListenKopf:“ZahlenListe; (* Kopf abspalten *) 

ErstesElement:“ListenKopf^.Inhalt; (* ErstesElement zuweisen *) 

ZahlenListe: “ListenKopf''.Rest; ( * Der neue Kopf ist der Rest *) 

DEALL0CATE(ListenKopf,TSIZE(Kopf)); (» Alten Kopf löschen «) 
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9.3.1.1 Stapel 

Wird eine Liste auf diese Weise organisiert, daß also sowohl Einfü¬ 
gen als auch Entfernen nur am Listenkopf stattfinden, so spricht 
man von Stapel- (engl. Stack) oder LIFO-(Last In, First Out = 
zuletzt rein, zuerst rausJStruktur. Wir werden die Arbeit mit einem 
Stapel an einem kleinen Beispielprogramm demonstrieren. Dazu 
formulieren wir jeweils eine Einfüge- und eine Entfernprozedur 
sowie eine Funktion, die anzeigt, ob der Stapel leer ist oder nicht. 


MODULE StapelDemo; 

FROM Storage IMPORT ALLOCATE, DEALLOCATE; 

FROM SYSTEM IMPORT TSIZE; 

FROM InOut IMPORT WriteString, WriteLn, WriteCard, ReadCard; 

TYPE Liste = POINTER TO Kopf; 

Kopf - RECORD 

Inhalt : CARDINAL; (» oder irgendein anderer Typ *) 
Rest : Liste 
END; 

VAR Stapel : Liste; 

Zahl : CARDINAL; 

PROCEDURE Einfuegen(VAR S : Liste; NeuesElement : CARDINAL); 

VAR BisherigeListe : Liste; 

BEGIN 

BisherigeListe:=S; 

ALL0CATE(S,TSIZE(Kopf)); 

S''. Inhalt: “NeuesElement; 

S~.Rest:“BisherigeListe 
END Einfuegen; 

PROCEDURE Entfernen(VAR S : Liste; VAR ErstesElement : CARDINAL); 

VAR ListenKopf : Liste; 

BEGIN 

ListenKopf:=S; 

ErstesElement:=ListenKopf~.Inhalt; 

S:“ListenKopf~.Rest; 

DEALL0CATE(ListenKopf,TSIZE(Kopf)) 

END Entfernen; 

PROCEDURE ListeLeer(S : Liste) : B00LEAN; 

BEGIN 

RETURN S=NIL 
END ListeLeer; 

BEGIN 

WriteString("Demonstration eines Stapels"); WriteLn; 

WriteLn; 

WriteString("Bitte geben Sie eine Folge von Zahlen ein (0=Ende):"); 
WriteLn; 

Stapel:=NIL; (* Wichtig! Anfangs ist der Stapel leer ») 

REPEAT 

ReadCard(Zahl); WriteLn; 

IF Zahl>0 THEN Elnfuegen(Stapel,Zahl) END 
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UNTIL Zahl=0; 

WriteString("Jetzt wird der Stapel abgebaut:"); WriteLn; 
WHILE NOT ListeLeer(Stapel) DO 
Entfernen(Stapel,Zahl); 

WriteCard(Zahl.lO); WriteLn 
END (» WHILE «) 

END StapelDemo. 


Testlauf: 

Demonstration eines Stapels 

Bitte geben Sie eine Folge von Zahlen ein (0=Ende): 

12 

18 

22 

11 

123 

144 

16 

17 

0 

Jetzt wird der Stapel abgebaut: 

17 
16 
144 
123 
11 
22 

18 
12 

Aufgaben: 

1. Was würde passieren, wenn die Anweisung «Stapel:=NIL» feh¬ 
len würde? 

2. Stellen Sie das Programm so um, daß Zeichenketten eingelesen 
und ausgegeben werden. 
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9.3.1.2 Puffer 

Die zweite wichtige Listenorganisation funktioniert nach dem 
FIFO-Prinzip, wobei das zuerst eingefügte Element (First In) auch 
als erstes wieder entfernt (First Out) wird. Eine solche Struktur 
wird Puffer (oder Queue) genannt. Der Grundalgorithmus zum 
Einfügen: 

Erzeuge einen neuen Kopf und hänge ihn ans Ende der Liste an. 

Entsprechend der rekursiven Struktur der Liste kann diese Vor¬ 
schrift in einen rekursiven Algorithmus übertragen werden: 

Falls die Liste leer ist, 

dann mach' ihr einen neuen Kopf mit leerem Rest, 
ansonsten wende dieses Verfahren auf den Rest an. 


PROCEDURE Einfuegen(VAR P:Liste; NeuesElement:CARDINAL); 
BEGIN 
IF P=NIL 
THEN 

ALL0CATE(P,TSIZE(Kopf)); 

P~.Inhalt:=NeuesElement; 

P~.Rest:=NIL 

ELSE Einfuegen( P~. Rest, NeuesElement) 

END 

END Einfuegen; 


Allerdings ist dieses Verfahren nicht sehr effizient, die Rekursions¬ 
tiefe steigt mit der Anzahl der Listenelemente. In diesem Fall ist es 
wesentlich günstiger, die Liste über zwei Zeiger - «Anfang» und 
«Ende» - zu verwalten. Am Ende wird eingefügt, am Anfang 
entfernt. Als einziger Sonderfall ist der leere Puffer zu beachten. 
Hier müssen sowohl Anfang als auch Ende initialisiert werden. 


TYPE PufferTyp = RECORD 

Anfang, Ende : Liste 
END; 


Die einzelnen Prozeduren können jetzt leicht implementiert 
werden: 


MODULE PufferDemo; 

FROM Storage IMPORT ALLOCATE, DEALLOCATE; 

FROM SYSTEM IMPORT TSIZE; 

FROM InOut IMPORT WriteString, WriteLn, WriteCard, ReadCard; 



TYPE Liste = POINTER TO Kopf; 

Kopf “ RECORD 

Inhalt : CARDINAL; (" oder irgendein anderer Typ *) 
Rest ; Liste 
END; 

PufferTyp = RECORD 

Anfang, Ende : Liste 
END; 

VAR Puffer : PufferTyp; 

Zahl : CARDINAL; 

PROCEDURE Einfuegen(VAR P : PufferTyp; NeuesElement : CARDINAL); 

VAR NeuesEnde : Liste; 

BEGIN 

ALLOCATE(NeuesEnde,TSIZE(Kopf)); 

NeuesEnde".Inhalt:=NeuesElement; 

NeuesEnde".Rest:=NIL; (* Sonst wäre es kein Ende! *) 

IF P.Anfang=NIL (" Puffer leer? *) 

THEN P.Anfang:»NeuesEnde; P.Ende:“NeuesEnde 
ELSE 

P.Ende".Rest:“NeuesEnde; ("An die Liste anhängen ») 

P.Ende:“NeuesEnde (" und Ende entsprechend versetzen ") 

END (« IF ») 

END Einfuegen; 

PROCEDURE Entfernen(VAR P : PufferTyp; VAR ErstesElement : CARDINAL); 
VAR ListenKopf : Liste; 

BEGIN 

ListenKopf:=P.Anfang; 

ErstesElement:“ListenKopf".Inhalt; 

P.Anfang:“ListenKopf".Rest; 

DEALLOCATE(ListenKopf,TSIZE(Kopf)) 

END Entfernen; 

PROCEDURE ListeLeer(P : PufferTyp) : BOOLEAN; 

BEGIN 

RETURN P.Anfang=NIL 
END ListeLeer; 

BEGIN 

WriteString("Demonstration eines Puffers"); WriteLn; 

WriteLn; 

WriteString("Bitte geben Sie eine Folge von Zahlen ein (0=Ende):"); 
WriteLn; 

Puffer.Anfang:=NIL; (" Wichtig! Anfangs ist der Puffer leer ") 
REPEAT 

ReadCard(Zahl); WriteLn; 

IF Zahl>0 THEN Einfuegen(Puffer,Zahl) END 
UNTIL Zahl=0; 

WriteString("Jetzt wird der Puffer ausgelesen:"); WriteLn; 

WHILE NOT ListeLeer(Puffer) DO 
Entfernen(Puffer.Zahl); 

WriteCard(Zahl,10); WriteLn 
END (" WHILE ») 

END PufferDemo. 
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Testlauf: 

Demonstration eines Puffers 

Bitte geben Sie eine Folge von Zahlen ein (0=Ende): 

23 

43 

776 

324 

123 

978 

323 
0 

Jetzt wird der Puffer ausgelesen: 

23 

43 

776 

324 
123 
978 
323 

Aufgabe: 

Es soll ein Programm geschrieben werden, das eine Meßwertverar¬ 
beitung simuliert. Dabei gehen die Meßwerte (REAL) in unregel¬ 
mäßigen Abständen ein. Die Funktion «MesswertDa():BOOLEAN» 
gibt an, daß ein gültiger Meßwert vorliegt, der mit der Prozedur 
«LiesMesswert(VAR W : REAL)» eingelesen werden muß. In den 
Pausen, wenn keine Meßwerte vorliegen, sollen die Werte in der 
Reihenfolge, wie sie einkamen, bearbeitet werden. Man spricht in 
diesem Fall von einer gepufferten Bearbeitung. Viele Texteditoren 
arbeiten beispielsweise nach diesem Verfahren (die eingehenden 
Daten sind hier Tastendrücke). 

Auf folgende Prozeduren können Sie bei der Lösung zurück¬ 
greifen: 

FROM RANDOM IMPORT RandomCard, RandomReal; 

FROM InOut IMPORT WriteString, WriteLn, WriteReal; 

PROCEDORE MesswertDa() : B00LEAN; 

BEGIN 

RETDRN RandomCard(2)=0 
END MesswertDa; 
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PROCEDURE LiesMesswert(VAR Wert : REAL); 
BEGIN 

WriteString("Einlesen: ”); 

Wert:=100.0*RandomReal(); 
WriteReal(Wert,20); WriteLn 
END LiesMesswert; 

PROCEDURE BearbeiteMesswert(Wert : REAL); 
BEGIN 

WriteString(" Bearbeiten: "); 

WriteReal(Wert,20); WriteLn 
END BearbeiteMesswert; 


Und so sollte der Ablauf des Programms in etwa aussehen: 


RANDOM-Startwert: 0 

Simulation einer Messwert-Verarbeitung 


Einlesen: 4.912579957356077E1 

Bearbeiten: 4.912579957356077E1 
Einlesen: 7.151385927505330E1 

Bearbeiten: 7.151385927505330E1 
Einlesen: 9.304904051172707E1 

Bearbeiten: 9.304904051172707E1 
Einlesen: 7.279317697228144E1 

Bearbeiten: 7.279317697228144E1 
Einlesen: 3.953091684434967E1 

Einlesen: 3.739872068230277E1 

Bearbeiten: 3.953091684434967E1 
Bearbeiten: 3.739872068230277E1 
Einlesen: 5.147121535181236E1 

Bearbeiten: 5.147121535181236E1 
Einlesen: 8.771855010660981E1 
Einlesen: 4.208955223880597E1 
Einlesen: 1.364605543710021E0 

Einlesen: 8.324093816631130E1 
Einlesen: 3.014925373134328fil 

Bearbeiten: 8.771855010660981E1 
Einlesen: 2.247334754797441E1 
Einlesen: 1.095948827292110E1 

Bearbeiten: 4.208955223880597E1 

Einlesen: 2.375266524520255E1 


9.3.2 Untypisierte Listen 

Wir haben gesehen, daß bei den Strukturen «Stapel» und «Puffer» 
der Listeninhalt nur eine sekundäre Rolle spielt. In den Prozeduren 
tritt er nur bei den Zuweisungen auf. Es stellt sich nun die Frage, ob 
es möglich ist, diese Speicherstrukturen so universell zur Verfü¬ 
gung zu stellen, daß 
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□ keine speziellen Typangaben benötigt werden und 

□ die Verwaltung der Zeigervariablen vollkommen ausgelagert 
wird. 

Es ist ein besonderer Vorzug von Modula-2, daß diese Möglichkeit 
besteht, ohne auf irgendwelche Programmiertricks zurückgreifen 
zu müssen. Das notwendige Werkzeug finden wir in dem Modul 
«SYSTEM», das u. a. den Datentyp «WORD» liefert. 

«WORD» ist eine Speichereinheit, deren exakte Größe (die von 
System zu System variiert) uns nicht weiter interessiert. Wichtig in 
diesem Zusammenhang ist allein die Tatsache, daß über den offe¬ 
nen Feldparameter «ARRAY OF WORD» Variable beliebigen 
Datentyps übergeben werden können! Innerhalb der Prozedur stellt 
sich eine übergebene Variable dann schlicht als Speicherbereich 
dar, über dessen Struktur und Typ nichts bekannt ist. 

Beispiel: 

PROCEDURE WortZahl(Variable : ARRAY OF WORD) : CARDINAL; 

BEGIN 

RETÜRN HIGH(Variable)+l 
END WortZahl; 

VAR Z : CARDINAL; 

R : REAL; 

S : ARRAY[0..9] OF CHAR; 


WriteCard(WortZahl(Z),10) 
WriteCard(WortZahl(R),10) 
WrlteCard(WortZahl(S),10) 


(* Ergibt normalerweise 1 *) 
(» Häufig 4 oder 6 *) 
(* Wahrscheinlich 10 » ) 


Damit ist es beispielsweise möglich, Prozeduren mit untypisierten 
Parametern zu erstellen. Untypisiert heißt in diesem Zusammen¬ 
hang, daß beim Aufruf Variable jedes beliebigen Typs eingesetzt 
werden können. 


Beispiele: 

PROCEDURE FillChar(VAR Variable : ARRAY OF WORD; 

Anzahl, Konstante : CARDINAL); 

(* Füllt bei einer Variablen Anzahl Worte mit Konstante *) 
VAR i : CARDINAL; 

BEGIN 

FOR i:=0 TO Anzahl-1 DO Variable[i]:=Konstante END 
END FillChar; 
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PROCEDURE Move(Quelle : ARRAY OF WORD; VAR 2iel : ARRAY OF WORD; 
Anzahl : CARDINAL); 

(* Kopiert Anzahl Worte von Quelle nach Ziel *) 

VAR i : CARDINAL; 

BEGIN 

FOR i:=0 TO Anzahl-1 DO Ziel[i]:=Quelle[i] END 
END Move; 


Die Prozedur "Move" kann als universelle Zuweisung verwendet 
werden: 

VAR Zahll, Zahl2 : REAL; 

Move(Zahlt,Zahl2.TSIZE(REAL)) hat dieselbe Funktion wie 
Zahl2:=Zahll 


Mit dem Typ «WORD» ist es also ohne weiteres möglich, einen 
untypisierten Listentyp zu schaffen. Ähnlich wie in dem Modul 
«DynStr» wird nur der jeweils benötigte Speicherplatz als 
«ARRAY[0..x] OF WORD» reserviert. Da die aktuelle Größe nicht 
durch eine spezielle Marke bestimmt werden kann, legen wir sie in 
«AnzahlWords» ebenfalls mit ab. Unsere universelle Liste hat nun 
folgende Struktur: 

CONST MaxWords = 65535; (* -MAX(CARDINAL) «) 

TYPE MemArray - ARRAY[0..MaxWords] OF WORD; 

Liste = POINTER TO Kopf; 

Kopf - RECORD 

AnzahlWords : CARDINAL; 

Inhalt : POINTER TO MemArray; 

Rest : Liste 
END; 


Um Anwenderprogramme von dieser komplizierten Struktur frei¬ 
zuhalten, bedienen wir uns des opaken (unsichtbaren) Exports. 
Damit können Zeigertypen ohne Typdefinition im Definitionsteil 
eines Moduls aufgeführt sein, die Konkretisierung erfolgt erst im 
Implementationsteil. Im Definitionsteil steht dann nur eine Dekla¬ 
ration wie folgt: 

TYPE FIFO; 


Ein solcher Name wird nur als Ganzes exportiert, die Details seiner 
Implementierung bleiben dem importierenden Programm verbor¬ 
gen. Dadurch wird jede Möglichkeit illegaler Zugriffe wirksam 
unterbunden. Flinweis: Der opake Export ist meist auf Zeigertypen 
beschränkt! 
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DEFINITION MODDLE LIFOLib; 

(« Bibliotheks-Modul für eine universelle Stapel-Verwaltung *) 

FROM SYSTEM IMPORT WORD; 

TYPE LIFO; (* Opaker Export eines Zeigertyps. Die Details werden im 
Implementatipns-Modul versteckt *) 

PROCEDÜRE InitLIF0(VAR L : LIFO); 

(“ Initialisiert eine LIFO-Struktur M ) 

PROCEDÜRE EmptyLIFO(L : LIFO):BOOLEAN; 

(* Gibt an, ob die LIFO-Struktur leer ist *) 

PROCEDÜRE PopFromLIFO(VAR L : LIFO; VAR Inh : ARRAY OF WORD); 

(* Holt das oberste Element von dem LIFO-Speicher. Falls Speicher- und 
Variablengröße nicht Ubereinstimmen, erfolgt eine Fehlermeldung *) 

PROCEDÜRE PushToLIFO(VAR L : LIFO; Inh : ARRAY OF WORD); 

(* Legt die Variable Inh auf dem LIFO-Speicher ab *) 

END LIFOLib. 


Der Implementationsteil unterscheidet sich nur sehr wenig von 
den bisher bekannten Prozeduren für Stapelspeicher. Anstelle der 
Inhaltszuweisung tritt der Prozedur auf ruf von «Move». 


IMPLEMENTATION MODULE LIFOLiS; 

FROM Terminal IMPORT WriteString, WriteLn; 

FROM Storage IMPORT ALLOCATE, DEALLOCATE; 

FROM SYSTEM IMPORT TSIZE; 

CONST MaxWords = 65535; 

TYPE MemArray = ARRAY[0..MaxWords] OF WORD; 

Liste = POINTER TO Kopf; 

Kopf = RECORD 

Anzahl : [0..MaxWords]; 

Inhalt : POINTER TO MemArray; 

Rest : Liste 
END; 

LIFO = Liste; 

PROCEDÜRE Move(Quelle : ARRAY OF WORD; VAR Ziel : ARRAY OF WORD; 
Anzahl : CARDINAL); 

(* Kopiert Anzahl Worte Vbn Quelle nach Ziel *) 

VAR i : CARDINAL; 

BEGIN 

FOR i:=0 TO Anzahl-1 DO Ziel[i]:=Quelle[i] END 
END Move; 

PROCEDÜRE InitLIF0(VAR L : LIFO); 

BEGIN 

L.Anfang:=NIL; 

END InitLIFO; 
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PROCEDURE EmptyLIFO(L : LIFO):BOOLEAN; 

BEGIN 

RETORN L.Anfang=NIL 
END EmptyLIFO; 

PROCEDURE PopFromLIFO(VAR L : LIFO; VAR Inh : ARRAY OF WORD); 

VAR p : Liste; 

BEGIN 

IF NOT EmptyLIFO(L) 

THEN 

p:=L; L=L~.Naechster; 

WITH p~ DO 

IF Anzahl<>HIGH(Inh) 

THEN WriteLn; WriteString("Unpassende Typen!"); WriteLn; HALT 
END; (* IF <•) 

Move( Inhalt'', Inh, Anzahl+1); 

DEALLOCATE(Inhalt,Anzahl+1) 

END; (" WITH *) 

DEALLOCATE(p,TSIZE(Kppf)) 

END (» IF «) 

END PopFromLIFO; 

PROCEDURE PushToLIFO(VAR L : LIFO; Inh : ARRAY OF WORD); 

VAR p : Liste; 

BEGIN 

ALL0CATE(p,TSIZE(Kopf)); 

WITH p~ DO 

Anzahl:=HIGH(Inh); 

ALL0CATE(Inhalt,Anzahl+1); 

Move( Inh, Inhalt'', Anzahl+1); 

Naechster:=L 
END; (» WITH *) 

L:=p 

END (» IF ») 

END PushToLIFO; 

END LIFOLib. 


In analoger Weise kann ein Modul «FIFOLib» erstellt werden, das 
eine universelle Pufferstruktur einschließlich der benötigten Pro¬ 
zeduren zum Ablegen (PutToFIFO) und Entfernen (GetFromFIFO) 
bereitstellt. 

DEFINITION MODULE FIFOLib; 

(* Bibliotheks-Modul für eine universelle Puffei—Verwaltung *) 

FROM SYSTEM IMPORT WORD; 

TYPE FIFO; (* Opaker Export *) 

PROCEDURE InitFIF0(VAR F : FIFO); 

(* Initialisiert den Puffer F *) 

PROCEDURE ExitFIF0(VAR F : FIFO); 

(* Deinitialisiert den Puffer F *) 

PROCEDURE EmptyFIFO(F : FIFO):BOOLEAN; 

(" Gibt an, ob der Puffer F leer ist oder nicht *) 
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PROCEDURE GetFromFIFO(VAR F : FIFO; VAR Inh : ARRAY OF WORD); 

(* Holt das erste Element des Puffers in die Variable Inh. 

Falls die Größen nicht tibereinstimmen, wird das Programm mit einer 
Fehlermeldung abgebrochen *) 

PROCEDURE PutToFIFO(VAR F : FIFO; Inh : ARRAY OF WORD); 

(* Legt die Variable Inh im Puffer ab *) 

END FIFOLib. 


Die im Implementations-Modul versteckte Struktur von «FIFO» 
ist etwas komplizierter als erwartet. Der Grund liegt darin, daß der 
opake Export ja nur mit Zeigertypen möglich ist. Aus diesem 
Grund ist ein FIFO nicht einfach ein RECORD mit den Komponen¬ 
ten «Anfang» und «Ende», sondern ein Zeiger auf eine solche 
Struktur. Deshalb gibt es neben «InitFIFO» auch noch die Prozedur 
«ExitFIFO», die den belegten Speicherplatz wieder freigibt. 


IMPLEMENTATION MODULE FIFOLib; 


FROM Terminal IMPORT WriteString, WriteLn; 

FROM STORAGE IMPORT ALLOCATE, DEALLOCATE; 

FROM SYSTEM IMPORT TSIZE; 

CONST MaxWords = 65535; 

TYPE MemArray = ARRAY[0..MaxWords] OF WORD; 

Liste = POINTER TO Kopf; 

Kopf = RECORD 

Anzahl : [0..MaxWords]; 

Inhalt : POINTER TO MemArray; 

Rest : Liste 
END; 

FIFORec = RECORD 

Anfang, Ende : Liste 
END; 

FIFO = POINTER TO FIFORec; 

PROCEDURE Move(Quelle : ARRAY OF WORD; VAR Ziel : ARRAY OF WORD; 
Anzahl : CARDINAL); 

(* Kopiert Anzahl Worte von Quelle nach Ziel *) 

VAR i : CARDINAL; 

BEGIN 

FOR i:=0 TO Anzahl-1 DO Ziel[i]:=Quelle[i] END 
END Move; 

PROCEDURE InitFIFO(VAR F : FIFO); 

BEGIN 

ALL0CATE(F,TSIZE(FIFORec)); 

F~.Anfang:=NIL; 

END InitFIFO; 

PROCEDURE ExitFIFO(VAR F : FIFO); 

BEGIN 

DEALLOCATE(F,TSIZE(FIFORec)); 

F:-NIL 

END ExitFIFO; 
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PROCEDURE EmptyFIFO(F : FIFO):BOOLEAN; 

BEGIN 

RETURN F-'.Anfang=NIL 
END EmptyFIFO; 

PROCEDURE GetFromFIFO(VAR F : FIFO; VAR Inh : ARRAY OF WORD); 

VAR p : Liste; 

i : [0..MaxWords]; 

BEGIN 

IF NOT EmptyFIFO(F) 

THEN 

p: =F~.Anfang; F"'.Anfang: =F^.Anfang''.Naechster; 

WITH p~ DO 

IF AnzahloHIGH(Inh) 

THEN WriteLn; WriteString("Unpassende Typen!"); WriteLn; HALT 
END; (» IF ») 

Move(Inhalt^,Inh,Apzahl+1); 

DEALLOCATE(Inhalt,Anzahl+1) 

END; (* WITH ») 

DEALLOCATE(p,TSIZE(Kopf)) 

END (» IF ") 

END GetFromFIFO; 

PROCEDURE PutToFIF0(VAR F : FIFO; Inh : ARRAY OF WORD); 

VAR p : Liste; 

i : [0..MaxWords]; 

BEGIN 

ALL0CATE(p,TSIZE(Kopf)); 

WITH p~ DO 

Anzahl:=HIGH(Inh); 

ALL0CATE(Inhalt,Anzahl+1); 

Move( Inh, Inhalt 1 ', Anzahl+1); 

Naechster: >=NIL 
END; (* WITH ») 

IF EmptyFIFO(F) 

THEN F~.Anfang:=p; F , '.Ende:=p 

ELSE F~.Ende~.Naechstep:=p; F~.Ende:=p 

END (* IF «) 

END PutToFIFO; 

END FIFOLib. 


Aufgabe: 

Die Meßwert-Verarbeitung (Aufgabe 7.3.1.2) soll so abgeändert 
werden, daß die aktuellsten Meßwerte zuerst bearbeitet werden. 
Verwenden Sie zur Lösung das Bibliotheksmodul «LIFOLib». 


9.3.3 Bäume 

Prinzipiell kann eine Liste auch so organisiert werden, daß ihre 
Elemente in geordneter Reihenfolge vorliegen. Man spricht dann 
von einer sortierten Liste. Da allerdings im Mittel stets die halbe 
Liste durchsucht werden muß, ehe die passende Stelle zum Einfü- 
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gen gefunden wird, ist eine derartige Struktur nicht besonders 
effizient. Der große Vorteil eines geordneten Feldes in Verbindung 
mit der binären Suche ist bei einer sortierten Liste nicht gegeben. 

Dennoch kann eine dynamische Struktur gebildet werden, die 
sich in bezug auf das Suchen ähnlich gut verhält wie ein geordnetes 
Feld, es beim Einfügen neuer Elemente sogar bei weitem Übertrifft. 
Es handelt sich dabei um sogenannte Bäume, die auch als Verallge¬ 
meinerung der Listen aufgefaßt werden können. Dabei ist ein Baum 
wie folgt definiert: 

Ein Baum ist entweder leer, oder er besteht aus einem Knoten mit 
einem oder mehreren (Teil-(Bäumen. 

Enthält jeder Knoten nur einen Teilbaum, so haben wir es wie¬ 
derum mit einer Liste zu tun. Eine Liste präsentiert sich somit als 
spezielle (degenerierte) Form eines Baumes. 

Von besonderem Interesse sind die Bäume, deren Knoten genau 
zwei Teilbäume enthalten. Sie werden als «Zweiwegbäume» oder 
«binäre Bäume» bezeichnet. Die beiden Teilbäume erhalten meist 
die Namen «linker» und «rechter» Teilbaum. Wir werden uns in 
der Folge ausschließlich mit binären Bäumen beschäftigen. Die 
Grundstruktur eines binären Baumes: 

TYPE Baum = POINTER TO Knoten; 

Knoten = RECORD 

Inhalt : IrgendEinTyp; 
links, rechts : Baum 
END; 


Wenn man nun noch axiomatisch fordert, daß alle Elemente des 
linken Teilbaums (eines Knotens) bezüglich einer Ordnung vor, die 
des rechten Teilbaums nach dem Knoteninhalt kommen, so spricht 
man von einem geordneten binären Baum bzw. von einem binären 
Suchbaum. 


9.3.3.1 Binäre Suchbäume 

Betrachten wir beispielsweise einen Baum, dessen Inhalte CARDI- 
NAL-Zahlen sind. Der erste Knoten (bei Listen war das der Kopf) 
wird normalerweise mit «Wurzel» bezeichnet. Man kann sich 
einen binären Suchbaum am einfachsten so vorstellen, daß die 
Wurzel oben ist und die Zweige nach unten zeigen. 
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|_ 12 _j 

|_ 6 _| |_ 20 _| 

3 10 15 28 

Die Suche nach einem Element ist recht einfach. Man beginnt bei 
der Wurzel. Ist das gesuchte Element kleiner als deren Inhalt, so ist 
die Suche im linken Teilbaum fortzusetzen. Ist es größer, so muß 
es sich im rechten Teilbaum befinden. Andernfalls ist des gesuchte 
Element gefunden. Wird bei der Suche das Ende eines Astes (durch 
NIL gekennzeichnet) erreicht, so ist das Element nicht vorhanden. 


9.3.3.2 Einfügen, Suchen und Löschen im binären Suchbaum 

Das Einfügen eines neuen Elementes kann unmittelbar aus der 
Suche gewonnen werden. Wenn es nicht schon vorhanden ist, ist 
sein Platz das Ende des Astes, das bei der Suche erreicht wird. 

Bei der Formulierung der benötigten Prozeduren zum Einfügen 
und Suchen gehen wir von folgender Typdefinition aus: 


TYPE Baum - POINTER TO Knoten; 

Knoten = RECORD 

Inhalt : CARDINAL; 
links, rechts : Baum 
END; 


Als Ordnungsrelation verwenden wir die Ordnung der natürlichen 
Zahlen. 


PROCEDURE Vorhanden(B : Baum; Zahl : CARDINAL) : B00LEAN; 

(“ Gibt an, ob die Zahl im Baum B vorhanden ist *) 

VAR p : Baum; (* Ein Hilfszeiger zum Durchsuchen des Baumes *) 

BEGIN 

p:=B; 

WHILE poNIL DO 

IF Zahl<p~.Inhalt (“ ist die gesuchte Zahl kleiner? *) 

THEN p:=p~.links (“im linken Teilbaum weitersuchen *) 

ELSIF Zahl>p~.Inhalt (* oder ist sie größer ") 

THEN p:=p~.rechts (“ dann im rechten Teilbaum suchen “) 

ELSE RETURN TRUE (" ansonsten ist sie gefunden *) 

END 

END; (“ WHILE “) 

(* Das Ende der Suche ist erfolglos erreicht “) 

RETURN FALSE 
END Vorhanden; 


Hinweis: Mit jedem Schritt verdoppelt sich die Anzahl der unter¬ 
suchten Knoten (bei einem ausgeglichenen Baum). Dadurch ent- 
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spricht der Suchaufwand dem der binären Suche in einem geordne¬ 
ten Feld (mit gleicher Elementzahl). 

Beim Einfügen des Baumes benötigen wir einen weiteren Hilfs¬ 
zeiger «q», der auf den zuletzt betrachteten Knoten zeigt, sowie 
einen Richtungszeiger, der festhält, ob wir von diesem Knoten nach 
links oder rechts weitergesucht haben. 

PROCEDÜRE EinfUgen(VAR B : Baum; Zahl : CARDINAL); 

(» Fügt die Zahl in den Baum ein, wenn sie noch nicht vorhanden ist *) 

VAR p,q : Baum; 

Richtung : (l,r); 

BEGIN 

p:=B; q:=NIL; 

WHILE poNIL DO 

q:=p; (* q zeigt auf den letzten Knoten *) 


IF Zahl<p".Inhalt (» ist die Zahl kleiner? * ) 

THEN p:=p Ä .links; Richtung:=l (* dann links weitersuchen *) 

ELSIF Zahl>p~.Inhalt (» oder größer? ») 

THEN p:=p~.rechts; Richtung:=r (" dann ehen rechts ») 

ELSE RETURN (" Die Zahl ist schon vorhanden! ») 

END; 

(» p zeigt jetzt auf NIL und hat keine Funktion mehr. Deshalb kann *) 
(»es als Hilfsvariable zur Erzeugung einer neuen dynamischen ») 

(» Variablen verwendet werden. ») 

ALLOCATE(p,TSIZE(Knoten)); 

p~.Inhalt:=Zahl; p~.links:=NIL; p~.rechts:=NIL; 

IF q=NIL (» war der Baum leer? ») 

THEN B:-=p (» dann ist p die Wurzel ») 

ELSIF Richtung=l (* vom letzten Knoten nach links?») 

THEN q~.links:=p 

ELSE q~.rechts:=p (* oder rechts ») 

END Einfuegen; 


Wie schon bei den Listen, kann auch das Einfügen eines neuen 
Elementes in die rekursive Struktur eines binären Suchbaumes 
rekursiv formuliert werden: 

Ist ein Baum leer, so ist an dessen Stelle der neue Knoten zu setzen, 
andernfalls, wenn das neue Element kleiner als der Bauminhalt ist, 
ist es im linken Teilbaum einzufügen, andernfalls, wenn es größer 
als der Bauminhalt ist, ist es im rechten Teilbaum einzufügen, 
andernfalls ist es schon vorhanden. 

PROCEDÜRE Einfuegen(VAR B : Baum; Zahl : CARDINAL); 

BEGIN 
IF B=NIL 
THEN 

ALLOCATE(B,TSIZE(Knoten)); 

B~.Inhalt:=Zahl; B~.links:=NIL; B~.rechts:=NIL 
ELSIF Zahl<B~.Inhalt 
THEN Einfuegen(B^.links,Zahl) 

ELSIF Zahl>.B~.Inhalt 

THEN Einfuegen(B / '.rechts,Zahl) 

END Einfuegen; 
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Dieser rekursive Algorithmus besticht durch seine Einfachheit. Da 
zudem die Rekursionstiefe die Baumhöhe niemals überschreitet, 
ist kein Effizienzverlust gegenüber der nicht-rekursiven Fassung zu 
verzeichnen. 

Am kompliziertesten gestaltet sich das Löschen eines Knotens. 
Der Algorithmus lautet: 

Wenn es sich bei dem zu löschenden Knoten um einen Endknoten 
(mit zwei leeren Teilbäumen) handelt, so kann er, nachdem der 
Verweis auf ihn gelöscht (auf NIL gesetzt) wurde, einfach entfernt 
werden. 

Andernfalls, 

wenn der linke Teilbaum des zu löschenden Knotens nicht leer ist, 
dann ersetze seinen Inhalt durch den des größten Knotens des 
linken Teilbaums und entferne diesen, 
andernfalls 

ersetze seinen Inhalt durch den des kleinsten Knotens des rechten 
Teilbaums und entferne diesen. 

Bei der Umsetzung dieser Vorschrift bedienen wir uns der Hilfszei¬ 
ger p, q und o. 

p -> zeigt auf den zu löschenden Knoten, 

q -> zeigt auf den zu entfernenden Knoten (wenn es sich bei p 
nicht um einen Endknoten handelt), 
o -> zeigt auf den Vorgänger von q. 


PROCEDDRE Loeschen(VAR B : Baum; Zahl : CARDINAL); 

VAR p,q,o : Baum; 

Richtung : (l,r); 
gefunden : BOOLEAN; 

BEGIN 

p:=B; o:=NIL; gefunden:=FALSE; 

WHILE (pONIL) AND NOT gefunden DO 
IF Zahl<p~.Inhalt 

THEN o:=p; p: =p'". links; Richtung:=l; 

ELSIF Zahl>p~.Inhalt 

THEN o:=p; p:=p"'. rechts; Richtung:=r 

ELSE gefunden:=TRUE 

END (* IF ») 

END; (» WHILE *) 

IF NOT gefunden THEN RETtlRN END; 

(" Jetzt zeigt p auf den zu löschenden Knoten *) 

IF p~.links<>NIL (* Linker Teilbaum ist nicht leer **) 

THEN 

o:=p; q:=p^.links; 

WHILE q~.rechts<>NIL DO o:=q; q:=q~.rechts END; 

(* q zeigt auf den größten Knoten des linken Teilbaums *) 
p''. Inhalt: =q~. Inhalt; 
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IF o=p THEN p Ä .links:=q~.links ELSE o"'. rechts :=q~.links END; 
DEALLOCATE(q,TSIZE(Knoten)) 

ELSIF p~.rechts<>NIL 
THEN 

o:=p; q:=p Ä .rechts; 

WHILE q~.links<>NIL DO o:=q; q:=q~.links END; 
p~.Inhalt:=q~.Inhalt; 

IF o=p THEN p~.rechts:=q~.rechts ELSE o Ä .links:=q~.rechts END; 
DEALLOCATE(q,TSIZE(Knoten)) 

ELSE (* p zeigt auf einen Endknoten ") 

DEALLOCATE(p,TSIZE(Knoten)); 

IF o=NIL THEN B:=NIL 

ELSIF Richtung=l THEN b~.links:-NIL 

ELSE o Ä .rechts:=NIL 

END 

END (* IF *•) 

END Loeschen; 


9.3.3.3 Ausgabe eines Baumes 

Spielerisch einfach im Gegensatz zum Löschen eines Knotens kann 
die sortierte Ausgabe eines Baumes programmiert werden. Wenn 
die einzelnen Knoten in aufsteigender Reihenfolge ausgegeben wer¬ 
den sollen, wird erst der linke Teilbaum, dann der Knoten selbst 
und schließlich der rechte Teilbaum ausgegeben. Bei absteigender 
Reihenfolge wird erst der rechte Teilbaum, dann der Knoten selbst 
und anschließend der linke Teilbaum ausgegeben. Hier gibt es 
keinen vernünftigen Ersatz für die rekursive Formulierung: 

PROCEDDRE Ausgabe(B : Baum); (# Aufsteigende Ausgabe *) 

BEGIN 

IF BONIL 
THEN 

Ausgabe(B^.links); 

WriteCard(B~.Inhalt,10); WriteLn; 

Ausgabe(B~.rechts) 

END (« IF *) 

END Ausgabe; 


Als Programmbeispiel wollen wir nochmals das Problem des Wör¬ 
terzählens aufgreifen. Anstelle eines Feldes, in dem die Wortvor¬ 
kommen gespeichert werden, tritt jetzt ein binärer Suchbaum. 
Damit fallen nun endgültig alle Beschränkungen weg: 

□ Es können beliebig viele Wörter abgelegt werden (solange der 
Hauptspeicher des Computers ausreicht). 

□ Die Frage, ob ein Wort bereits vorhanden ist, kann aufgrund der 
Baumstruktur sehr schnell beantwortet werden. 

□ Die alphabetische Ordnung ergibt sich ganz automatisch. 
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MODULE WoerterZaehlen; 

FROM DynStr IMPORT StatStrihg, DynString, MakeDynString, MakeStatString, 
ForgetDynString, DynStringLess, WriteDynString, 

MaxStringLaenge; 

FROM InOut IMPORT Read, Openlnput, Closeinput, Done, WriteCard, 
WriteString, WriteLn, OpenOutput, CloseOutput; 

FROM Storage IMPORT ALLOCATE; 

FROM SYSTEM IMPORT TSIZE; 

TYPE Wortvorkommen = RECORD 

Wort : DynString; 

Anzahl : CARDINAL 
END; 

Baum = POINTER TO Knoten; 

Knoten = RECORD 

Inhalt : Wortvorkommen; 
links, rechts : Baum 
END; 

WortListe = Baum; 

VAR Woerter : WortListe; 

Puffer : StatString; 

ZeichenZahl : [0..MaxStringLaenge]; 

Zeichen : CHAR; 

Zustand : (ZeichenLesen, WortLesen); 

PROCEDDRE Einfuegen(S : StatString; VAR B : WortListe); 

VAR temp : DynString; 
p, q : Baum; 

Richtung : (l,r); 

BEGIN 

MakeDynString(S.temp); 
p:=B; q:=NIL; 

WHILE pONIL DO 
q:=p; 

IF DynStringLess(temp,p~.Inhalt.Wort) 

THEN p^p''.links; Richtung:=l 

ELSIF DynStringLess(p~.Inhalt.Wort,temp) 

THEN p^p^.rechts; Richtung: =r 

ELSE ForgetDynString(temp); INC(p~.Inhalt.Anzahl); RETURN 
END (* IF ») 

END; (* WHILE *) 

ALLOCATE(p,TSIZE(Knoten)); 

WITH p~ DO 

links:=NIL; rechts:=NIL; 

WITH Inhalt DO Wort:=temp; Anzahl:=1 END; 

END; (« WITH p Ä ») 

IF q=NIL THEN B:=p 
ELSIF Richtung=l THEN q Ä .links:=p 
ELSE q~.rechts:=p 
END (" IF *•) 

END Einfuegen; 

PROCEDURE Ausgabe(B : WortListe); 

BEGIN 

IF BONIL 
THEN WITH B~ DO 
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Ausgabe(links); 

WITH Inhalt DO 

WriteCard(Anzahl,5); 

WriteString( " x " ); 

WriteDynString(Wort); 

WriteLn 

END; (*• WITH Inhalt «) 

Ausgabe(rechts) 

END (« WITH ») 

END (» IF *) 

END Ausgabe; 

BEGIN (* WoerterZaehlen *) 

WriteString("Worthäufigkeiten in einem Text"); WriteLn; 

WriteString( "-"); WriteLn; 

WriteLn; 

0penlnput(""); IF NOT Done THEN WriteString("Keine Datei!"); HALT END; 
Woerter:=NIL; Zustand:=ZeichenLesen; 

Read(Zeichen); 

WHILE Done DO 
OASE Zustand OF 

ZeichenLesen : IF (CAP(Zeichen)> = ’A’) AND (CAP(Zeichen)< = ’Z’) 

THEN 

ZeichenZahl:=0; 

Puffer[ZeichenZahl]:-Zeichen; 

Zustand:=WortLesen 
END 

| WortLesen : IF (CAP(Zeichen)>-’A’) AND (CAP(Zeichen)<-’Z’) 

THEN 

IF £eichenZahl<MaxStringLaenge 
THEN 

INC(ZeichenZahl); 

Puffer[ZeichenZahl]:»Zeichen 
END; 

ELSE 

IF ZeichenZahl<MaxStringLaenge 
THEN Puffer[ZeichenZahl+1]:»0C 
END; 

Einfuegen(Puffer.Woerter); 

Zustand:»ZeichenLesen 
END 

END; (» CASE ») 

Read(Zeichen) 

END; (» WHILE «) 

Closeinput; 

0pen0utput(""); Ausgabe(Woerter); CloseOutput 
END WoerterZaehlen. 
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9.4 Baum, Liste und dynamische Strings: 

Die Querverweisliste 

Zum Abschluß des Kurses soll noch eine Erweiterung des obigen 
Programms vorgestellt werden. Es handelt sich um die Erstellung 
einer sogenannten Querverweisliste. Auch hier werden die Wort¬ 
vorkommen analysiert. Allerdings wird nicht die Anzahl der Vor¬ 
kommen gespeichert, sondern die jeweiligen Zeilennummern. 
Diese werden in einer FIFO-Liste abgelegt. Aus diesem Grund hat 
die Datenstruktur «WortVorkommen» nun folgende Struktur: 


TYPE WortVorkommen = RECORD 

Wort : DynString; 
Vorkommen : FIFO 
END; 


Die Prozedur «Einfügen» unterscheidet sich nur dadurch von der 
obigen, daß - wenn das Wort bereits vorhanden ist - die übergebene 
Zeilennummer in der Liste der Vorkommen abgelegt wird (PutTo- 
FIFOjp a. Vorkommen,Nr)), ansonsten der Puffer initialisiert und 
die Zeilennummer abgelegt wird. 

Ein wesentlich höherer Aufwand wurde bei der Ausgabe betrie¬ 
ben (eine halbwegs vernünftig formatierte Ausgabe von Listen, 
Tabellen etc. gehört zu den nerven- und zeitraubendsten Arbeiten 
eines Programmierers). Die drei Konstanten «Spalten», «Wort- 
Breite» und «SpaltenProNr» sind auf das jeweilige Ausgabemedium 
abzustimmen. 

Spalten -> Anzahl der Zeichen, die in einer Zeile ausgege¬ 
ben werden können, ohne daß ein automati¬ 
scher Zeilenvorschub stattfindet. 

WortBreite -> Die Größe des Feldes, innerhalb dessen die ein¬ 
zelnen Wörter ausgegeben werden. Benötigt ein 
Wort mehr Platz, so wird der Zeilenumbruch 
automatisch korrigiert. 

SpaltenProNr -> Breite des Feldes für die Ziffern und das tren¬ 
nende Komma. 

Bei der Ausgabe eines Wortvorkommen wird nun zunächst das 
Wort in die Zeile geschrieben (WriteDynString(Wort)). Anschlie¬ 
ßend wird der Rest des Feldes mit Punkten aufgefüllt. Dann wird 
die Anzahl der Zeilennummern berechnet, die noch in dieser Zeile 
stehen dürfen. Bei jeder ausgegebenen Nummer wird diese Zahl um 
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eins erniedrigt. Ist der Wert 0 erreicht, so wird eine neue Zeile 
begonnen und hier, anstelle des Wortes, ein entsprechender Leer¬ 
string gedruckt. Schließlich wird die Anzahl der freien Positionen 
erneut berechnet. 

Da das Programm insbesondere zur Analyse und Dokumentation 
von Modula-2-Quelltexten verwendet werden soll, werden Kom¬ 
mentare und Zeichenketten übersprungen. Aus diesem Grund 
weist der eingesetzte Automat eine starke Ähnlichkeit zu dem in 
«Quelltextlister» verwendeten auf. Um den Zugriff auf einzelne 
RECORD-Komponenten und dynamische Variable unterscheiden 
zu können, lassen wir bei den untersuchten Wörtern folgende 
Syntax zu: 

Wort:: =Bezeichner{ " A "]{ ". "Bezeichner} " A "}}. 

Bezeichner:: =Buchstabe{Buchstabe | Ziffer}. 


Deshalb wird, falls im Zustand «WortLesen» das Zeichen «.» 
gelesen wird, noch das nächste Zeichen untersucht. Handelt es sich 
hierbei wieder um einen Buchstaben, so werden beide Zeichen 
(Punkt und Naechstes) an den Puffer angehängt. Andernfalls wird 
das Zeichen wieder zurückgeschrieben und der Puffer in die Wortli¬ 
ste eingefügt. 

Das Programm «QuerverweisListe» wurde mit unserem Quell¬ 
textlister ausgedruckt und hat sich anschließend selbst bearbeitet. 


IrMODDLE QuerverweisListe; 

2: 

3: FROM STORAGE IMPORT ALLOCATE; 

4: 

5: FROM SYSTEM IMPORT TSIZE; 

6 : 

7: FROM FIFO IMPORT FIFO, EmptyFIFO, InitFIFO, PutToFIFO, GetFromFIFO; 

8 : 

9: FROM InOut IMPORT Read, Write, WriteLn, WriteCard, WriteString, 

10: Openlnput, Closelnput, OpenOutput, CloseOutput, 

11: Done, EOL; 

12: 

13: FROM DynStr IMPORT DynString, StatString, MakeDynString, WriteDynString, 
14: ForgetDynString, DynStringLess, DynStringLength, 

15: MaxStringLaenge; 

16: 

17: CONST Spalten = 79; 

18: WortBreite = 30; 

19: SpaltenProNr = 5; 

20 : 

21: TYPE WortVorkommen = RECORD 

22: Wort : DynString; 

23: Vorkommen : FIFO 

24: END; 
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Baum = POINTER TO Knoten; 

Knoten = RECORD 

Inhalt : WortVorkommen; 
links, rechts : Baum 
END; 

WortListe = Baum; 

VAR Woerter : WortListe; 

PROCEDURE Eingabe(VAR B : WortListe); 

VAR Puffer : StatString; 

Zeichen, Naechstes : CHAR; 

Zustand : (ZeichenLesen, WortLesen, 

Stringl, String2, Kommentar); 

ZeilenNr, ZeichenZahl, KommentarTiefe : CARDINAL; 

PROCEDURE Einfuegen(S : StatString; VAR B : WortListe; 

Nr : CARDINAL); 

VAR temp : DynString; 
p,q : WortListe; 

Richtung : (l,r); 

BEGIN 

MakeDynString(S.temp); 
p:=B; q:=NIL; 

WHILE pONIL DO 
q:=p; 

IF DynStringLess( temp,p / '. Inhalt .Wort) 

THEN p:=p~.lihks; Richtung:=1 

ELSIF DynStringLess(p / '. Inhalt .Wort, temp) 

THEN p:=p"'.rechts; Richtung:=r 
ELSE 

ForgetDynString(temp); 

PutToFIFO(p''. Inhalt .Vorkommen, Nr); 

RETURN 
END (* IF ») 

END; (» WHILE ») 

ALLOCATE(p,TSIZE(Knoten)); 

WITH p~ DO 

links:=NIL; rechts:=NIL; 

WITH Inhalt DO 

Wort:=temp; InitFIF0(Vorkommen); PutToFIF0(Vorkommen,Nr) 
END (« WITH Inhalt *) 

END; (» WITH p A ») 

IF q=NIL THEN B:=p 
ELSIF Richtung=l THEN q~.links:-p 
ELSE q^-rechtsi^p 
END (* IF «) 

END Einfuegen; 


(XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX) 

( H Lokales Modul zum gepufferten Lesen *) 

(xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx) 

MODULE GepuffertesLesen; 

IMPORT Read; 

EXPORT ReadChar, PushBack; 

VAR ZeichenPuffer : CHAR; 
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86 
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144 
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PROCEDURE ReadChar(VAR Zeichen : CHAR); 

BEGIN 

IF ZeichenPuffer=OC 
THEN Read(Zeichen) 

ELSE Zeichen:“ZeichenPuffer; ZeichenPufferi=0C 
END (* IF *•) 

END ReadChar; 

PROCEDURE PushBackfZeichen : CHAR); 

BEGIN 

ZeichenPuffer:“Zeichen 
END PushBack; 

BEGIN 

ZeichenPuffer:=0C 
END GepuffertesLesen; 


(* Ende des lokalen Moduls *) 

PROCEDURE Anhaengen(Zeichen : CHAR); 

BEGIN 

IF ZeichenZahl<MaxStringLaenge 

THEN INC(ZeichehZahl); Puffer[ZeichenZahl]:“Zeichen 
END (* IF <•) 

END Anhaengen; 

PROCEDURE PufferEinfuegen; 

BEGIN 

IF ZeichenZahl<MaxStringLaenge 
THEN Puffer[ZeichenZahl+1]:=0C 
END; (•• IF *) 

Einfuegen(Puffer.Woerter,ZeilenNr) 

END PufferEinfuegen; 

BEGIN (« Eingabe “) 

ZeilenNr:=l; Zustand:“ZeichenLesen; ReadChar(Zeichen); 

WHILE Done DO 
CASE Zustand OF 

ZeichenLesen : CASE CAP(Zeichen) OF 

’A’..’Z’ : ZeichenZahl:“0; 

Puffer[ZeichenZahl]:=Zeichen; 
Zustand:“WortLesen 
| : Zustand:“Stringl 

j : Zustand: =String2 

j "(" : ReadChar(Naechstes); 

IF Naechstes=’ ** 

THEN 

KommentarTiefe:=1; 

Zustand:“Kommentar 
END; 

PushBack(Naechstes) 

END (* CASE <•) 

| WortLesen : CASE CAP(Zeichen) OF 
’A’..’Z’, 

’0’ ..’9’, 

: Anhaengen(Zeichen) 

| : ReadChar(Naechstes); 

IF (CAP(Naechstes)>=’A’) AND 
(CAP(Naechstes)<=’Z’) 
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146 

147 

148 
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155 
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165 
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THEN 

Anhaengen( ’ . ’ ); 
Anhaengen(Naechstes) 

ELSE 

PushBack(Naechstes); 

PufferEinfuegen; 

Zustand:=ZelchenLesen 
END 

ELSE 

XF ZeichenOEOL 
THEN PushBack(Zeichen) 

END; (* IF ») 

PufferEinfuegen; 

Zustand:»ZeichenLesen 
END (» CASE ") 

| Stringl : IF Zeichen»’"’ THEN Zustand:»ZeichenLesen END 

] String2 : IF Zeichen»"”' THEN Zustand:»ZeichenLesen END 

j Kommentar : CASE Zeichen OF 

’(’ : ReadChar(Naechstes); 

IF Naechstes«’*’ 

THEN INC(KommentarTiefe) 

END; 

PushBack(Naechstes) 

| ’*’ : ReadChar(Naechstes); 

IF Naechstes»’)’ 

THEN 

DEC(KommentarTiefe); 

IF KommentarTiefe»0 
THEN Zustand:»ZeichenLesen 
END 
END; 

PushBack(Naechstes) 

END (* CASE «) 

END; (* CASE ") 

IF Zeichen«EOL THEN INC(ZeilenNr) END; 

ReadChar(Zeichen) 

END (« WHILE *) 

END Eingabe; 

PROCEDURE Ausgabe(B : WortListe); 

VAR Anzahl, i, Nr : CARDINAL; 

BEGIN 

IF BONIL 
THEN WITH B~ DO 

Ausgabe(links); 

WITH Inhalt DO 

WriteDynString(Wort); 

IF DynStringLength(Wort)>WortBreite 

THEN Anzahl:=(Spalten-DynStringLength(Wort)) 

DIV SpaltenProNr 

ELSE Anzahl:=(Spalten-WortBreite) DIV SpaltenProNr 
END; (* IF ») 

FOR i:=DynStringLength(Wort)+l TO WortBreite 
DO Write(’.’) 

END; (* FOR *) 

WHILE NOT EmptyFIFO(Vorkommen) DO 
IF Anzahl=0 
THEN 

Anzahl:=(Spalten-WortBreite) DIV SpaltenProNr; 
WriteLn; FOR i:=l TO WortBreite DO Write(’ ’) END 
END; (* IF *) 
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207: GetFromFIF0( Vor kommen, Nr); 

208: WriteCard(Nr,SpaltenProNr-l); 

209: IF NOT EmptyFIFO(Vorkommen) THEN Write(",") END; 

210: DEC{Anzahl) 

211: END; (» VHILE **) 

212: WriteLn 

213: END; (* WITH Inhalt *) 

214: Ausgabe(rechts) 

215: END (* WITH B~ *) 

216: END (« IF *) 

217: END Ausgabe; 

218: 

219: BEGIN (" QuerverweisListe “) 

220: WriteString("Querverweisliste"); WriteLn; 

221: WriteString( "-"); WriteLn; 

222: WriteLn; 

223: OpenInput("MOD"); 

224: IF NOT Done THEN WriteString("Keine Datei!"); HALT END; 

225: Eingabe(Woerter); 

226: Closeinput; 

227: OpenOutput(""); 

228: Ausgabe(Woerter); 

229: CloseOutput; 

230: END QuerverweisListe. 

ALLOCATE. 3, 61 

AND. 144 

Anhaengen. 106, 111, 142, 147, 148 

Anzahl. 186, 194, 196, 202, 204, 210 

Ausgabe. 185, 190, 214, 217, 228 

B. 34, 41, 48, 68, 185, 188 

Baum. 25, 28, 30 

BEGIN. 46, 86, 94, 98, 107, 114, 121, 187, 219 

. 189 

C. 87, 89, 99, 116 

CAP. 125, 139, 144, 145 

CARDINAL. 39, 42, 186 

CASE. 124, 125, 139, 163 

CHAR. 36, 83, 85, 93, 106 

Closeinput. 10, 226 

CloseOutput. 10, 229 

C0NST. 17 

DEC. 172, 210 

DIV. 195, 196, 204 

DO. 49, 62, 64, 123, 189, 191, 199, 201, 205 

Done. 11, 123, 224 

DynStr.. 13 

DynString..'. 13, 22, 43 

DynStr ingLength. 14, 193, 194, 198 

DynStringLess. 14, 51, 53 

Einfuegen. 41, 72, 118 

Eingabe. 34, 183, 225 

ELSE. 55, 70, 89, 149, 154, 196 

ELSIF. 53, 69 

EmptyFIFO. 7, 201, 209 

END. 24, 29, 59, 60, 66, 67, 71, 72, 90 

91, 96, 100, 110, 111, 117, 119, 136, 138 

153, 157, 160, 161, 162, 167, 175, 176, 178 

179, 180, 182, 183, 197, 200, 205, 206, 209 

211, 213, 215, 216, 217, 224, 230 

E0L. 11, 155, 180 
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EXPORT. 81 

FIFO. 7, 7, 23 

FOR. 198, 205 

ForgetDynString. 14, 56 

FROM. 3, 5, 7, 9, 13 

GepuffertesLesen. 78, 100 

GetFromFIFO. 7, 207 

HALT. 224 

i. 186, 198, 205 

IF. 51, 68, 87, 108, 115, 132, 144, 155, 161, 

162, 165, 170, 173, 180, 188, 193, 202, 209, 
224 

IMPORT. 3, 5, 7, 9, 13, 80 

INC. 109, 166, 180 

Inhalt. 27, 64, 191 

InitFIFO. 7, 65 

InOut. 9 

Knoten. 25, 26, 61 

Kommentar. 38, 135, 163 

KommentarTlefe. 39, 134, 166, 172, 173 

1. 45, 52, 69 

links. 28, 63, 190 

MakeDynString. 13, 47 

MaxStringLaenge. 15, 108, 115 

MODULE. 1, 78 

Naechstes. 36, 131, 132, 137, 143, 144, 145, 148, 150, 

164, 165, 168, 169, 170, 177 

NIL. 48, 49, 63, 63, 68, 188 

NOT. 201, 209, 224 

Nr. 42, 57, 65, 186, 207, 208 

OF. 124, 125, 139, 163 

Openlnput. 10, 223 

OpenOutput. 10, 227 

p. 44, 48, 49, 50, 52, 54, 61, 68, 69, 

70 

POINTER. 25 

PROCEDDRE. 34, 41, 85, 93, 106, 113, 185 

Puffer. 35, 109, 116, 118, 127 

PufferEinfuegen. 113, 119, 151, 158 

PushBack. 81, 93, 96, 137, 150, 156, 168, 177 

PutToFIFO. 7, 57, 65 

p~. 62 

p~. Inhalt. Vorkommen. 57 

p~. Inhalt .Wort. 51, 53 

p"'.links. 52 

p^.rechts. 54 

q. 44, 48, 50, 68 

QuerverweisListe. 1, 230 

q~. links. 69 

q^. rechts. 70 

r. 45, 54 

Read. 9, 80, 88 

ReadChar. 81, 85, 91, 122, 131, 143, 164, 169, 181 

rechts. 28, 63, 214 

RECORD. 21, 26 

RETURN. 58 

Richtung. 45, 52, 54, 69 

S. 41, 47 

Spalten. 17, 194, 196, 204 

SpaltenProNr. 19, 195, 196, 204, 208 

StatString. 13, 35, 41 
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STORAGE. 3 

Stringl. 38, 129, 161 

String2. 38, 130, 162 

SYSTEM. 5 

temp. 43, 47, 51, 53, 56, 65 

THEN. 52, 54, 68, 69, 88, 109, 116, 133, 146 

156, 161, 162, 166, 171, 174, 180, 189, 194 
203, 209, 224 

TO.25, 198, 205 

TSIZE. 5, 61 

TYPE. 21 

VAR. 32, 34, 35, 41, 43, 83, 85, 186 

Vorkommen. 23, 65, 65, 201, 207, 209 

WHILE. 49, 123, 201 

WITH. 62, 64, 189, 191 

Woerter. 32, 118, 225, 228 

Wort. 22, 65, 192, 193, 194, 198 

WortBreite. 18, 193, 196, 198, 204, 205 

WortLesen. 37, 128, 139 

WortListe. 30, 32, 34, 41, 44, 185 

WortVorkommen. 21, 27 

Write. 9, 199, 205, 209 

WriteCard. 9, 208 

WriteDynString. 13, 192 

WriteLn.. 9, 205, 212, 220, 221, 222 

WrlteString. 9, 220, 221, 224 

Zeichen. 36, 85, 88, 89, 93, 95, 106, 109, 122 

125, 127, 139, 142, 155, 156, 161, 162, 163 
180, 181 

ZeichenLesen. 37, 122, 125, 152, 159, 161, 162, 174 

ZeichenPuffer. 83, 87, 89, 89, 95, 99 

ZeichenZahl. 39, 108, 109, 109, 115, 116, 126, 127 

ZeilenNr. 39, 118, 122, 180 

Zustand. 37, 122, 124, 128, 129, 130, 135, 152, 159 

161, 162, 174 


Aufgabe: 

Die Prozedur «DynStringLess» aus unserem Bibliotheksmodul 
«DynStr» wurde so abgeändert, daß (für die alphabetische Reihen¬ 
folge) nicht zwischen Groß- und Kleinbuchstaben unterschieden 
wird. Wie schaut diese Änderung aus? 

































Anhang A 


Lösungen der Aufgaben 

Die angegebenen Lösungen zu den einzelnen Übungsaufgaben sind 
in den meisten Fällen sehr ausführlich. Bei komplexeren Übungen 
ist jedoch manchmal nur ein möglicher Lösungsweg skizziert 
worden. 

Kapitel 2.4 

la: □ Verschiedene Schreibweise: LeeresProgramm und Leeres- 
programm 

□ Das Modul wird mit einem Punkt abgeschlossen, nicht mit 
einem Semikolon. 

lb: □ Der Modulname ist kein korrekter Bezeichner - der Unter¬ 
strich ist nicht erlaubt. 

□ Auf Modulname folgt ein Semikolon, kein Komma. 

□ Das Bibliotheksmodul heißt InOut, und nicht 
INOUT. 

□ In der Importliste werden die einzelnen Bezeichner durch 
Komma getrennt. 

□ 'Modula-2 mit Fehlern!" ist eine illegale String-Konstante. 

□ Zwischen «WriteString...» und «WriteLn» muß ein Semiko¬ 
lon stehen. 

□ Der Name am Modulende stimmt nicht mit dem Modulna¬ 
men überein. 

2. "Symbol" - Das Symbol muß in der angegeben Form 

geschrieben werden. 

a|b - Entweder a oder b. 

[a] - a kann einmal Vorkommen, muß aber nicht. 

{a} - a kann beliebig oft Vorkommen. 

::= - definitionsgemäß gleich. 

3. String-Konstante::=""Zeichenfolge"" | "'"Zeichenfolge"'". 

Zeichenfolge: :={Zeichen}. 
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Kapitel 3.3 

1. MODULE Differenz; 

FROM InOut IMPORT ReadCard, WriteCard, WriteLn, WriteString; 
VAR A, B : CARDINAL; 

BEGIN 

WriteString("Bitte geben Sie zwei Zahlen A und B ein."); 
WriteLn; 

WriteString("A = "); ReadCard(A); WriteLn; 

WriteString("B = "); ReadCard(B); WriteLn; 

WriteString("A - B = "); WriteCard(A-B,1); 

WriteLn 
END Differenz. 

2. Das Programm kann wie «Differenz» aufgebaut werden mit 
folgenden Unterschieden; 

VAR A, B, C : CARDINAL; ... 

WriteString("C = "); ReadCard(C); WriteLn; ... 

WriteString! "A»B**C = "); WriteCard( A«B*C, 1); ... 


Kapitel 3.4 

1. Die Hauptarbeit liegt im Austausch von CARDINAL durch 
INTEGER. Entsprechend müssen die Ein- und Ausgabeanwei¬ 
sungen geändert werden. 


Kapitel 3.6 

1. Das Programm kommt mit einer einzigen CHAR-Variablen 
aus; 

MODULE GrossUndKlein; (* Mit nur einer Variablen ") 

FROM InOut IMPORT Read, Write, WriteString, WriteLn; 

VAR Grossbuchstabe : CHAR; 

BEGIN 

WriteLn; WriteString!"Bitte geben Sie einen Großbuchstaben ein: ") 
Read(Grossbuchstabe); 

WriteString!" - > "; Write(CHR(ORD(Grossbuchstabe)+32)); WriteLn 
END GrossUndKlein. 


Obwohl das Programm wesentlich kürzer wird, nimmt die 
Klarheit ab! 

2. MODULE SchreibOktal; 

FROM InOut IMPORT ReadCard, WriteCard, WriteString, WriteLn; 


VAR Zahl, Stellei, Stelle2, Stelle3 : CARDINAL; 
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BEGIN 

WriteStringf"Bitte geben Sie eine positive Zahl bis 127 ein: "); 
ReadCard(Zahl); WriteLn; 

WriteString("Die Oktaldarstellung dieser Zahl ist: "); 

Stellet:=Zahl DIV 64; 

Stelle2:=(Zahl MOD 64) DIV 8; 

Stelle3:=(Zahl MOD 64) MOD 8; 

WriteCard(Stellet,1); WriteCard(Stelle2,1); WriteCard(Stelle3,1); 
WriteLn 

END SchreibOktal. 


Kapitel 3.7.7 

1. TRUE AND NOT (FALSE OR (TRUE AND NOT FALSE)) <-> 


TRUE AND NOT (FALSE OR (TRUE AND TRUE)) <-> 

TRUE AND NOT (FALSE OR TRUE) <-> 

TRUE AND NOT TRUE <-> 

TRUE AND FALSE <-> 

FALSE <-> 

2a. x<=y 


b. Zur Vereinfachung nehmen wir folgende Ersetzung vor: 
p := NOT(a<b) und 

q := (c>d). 

Die angegebene Formel hat nun folgende Gestalt: 

NOT (p AND q). 

Darauf kann die Regel von De Morgan angewandt werden: 
NOT p OR NOT q. 

Ersetzt man nun p wieder durch seine ursprüngliche Form, so 
fällt die doppelte Negation (NOT (NOT ..) wieder weg: 

(a<b) OR NOT q. 

Bei q kann die Negation in den Vergleichsoperator übernom¬ 
men werden: 

(a<b) OR (c<=d). 

c. NOT p OR q 


Kapitel 3.8 

1. CARDINAL-Zahl:: =Dezimalziff erjDezimalziff er). 
Dezimalziffer: :="0 , i'T ; i"2'i , '3"|"4"|"5i"6'i"7'i"8 , i"9". 

Nimmt man auch die Oktal- und Hexadezimaldarstellung mit 
auf, so lautet die Definition folgendermaßen: 

CARDINAL-Zahl ::=Oktalzahl | Dezimalzahl | Hexadezimal¬ 
zahl. 
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Oktalzahl::=Oktalziffer{Oktalziff er "B ". 

Oktalziffer::="0"|" 1 "|"2"|"3 "|"4"|"5 "j" 6"|" 7 ". 

Dezimalzahl::=Dezimalziff er{Dezimalzif f er}. 

Dezimalziffer::=Oktalzif f er|" 8 "\'9 ". 

Hexadezimalzahl:: =Dezimalziff er{Hexzif f er} "H ". 

Hexziffer: :=Dezimalzifferj"A"|"B"|"C"|"D"|"E"|"F". 

INTEGER-Zahl ::=["+"|" - " ] C ARDINAL-Zahl. 

2. Das Programm kann direkt aus «Volumen» gewonnen werden, 
indem die Variable «Hoehe» weggelassen und «Volumen» 
durch «Fläche» ersetzt wird. 


Kapitel 4.1 

1. Mehrfach verschachtelte IF-Anweisungen werden sehr schnell 
unübersichtlich. Zudem erhöht sich der Schreibaufwand, da 
jede IF-An Weisung ihr eigenes «END» benötigt. 

2. MODULE GrossKlein; 

FROM InOut IMPORT Read, Write; 

VAR Eingabe : CHAR; 

BEGIN 

Read(Eingabe); 

IF (Eingabe>="A") AND (Eingabe<="Z") 

THEN Write(CHR(ORD(Eingabe)+ORD("a")-ORD( "A"))) 

ELSIF (Eingabe>="a") AND (Eingabe<=”z") 

THEN Write(CAP(Eingabe)) 

ELSE Write(Eingabe) 

END (* IF <•) 

END GrossKlein. 


Kapitel 4.2 

1. 

MODDLE DezimalbruchAusgabe; 

FROM InOut IMPORT WriteLn, WriteString, WriteCard, ReadCard, Write; 
VAR A, B, Rest, Nachkommastellen : CARDINAL; 

BEGIN 

WriteString("Bitte geben Sie zwei natürliche Zahlen A und B ein."); 
WriteLn; 

WriteStringC'A = "); ReadCard(A); WriteLn; 

WriteString("B = "); ReadCard(B); WriteLn; 

WriteString("A/B = ”); WriteCard(A DIV B.l); Write("."); 
Nachkommastellen:=0; Rest:=A MOD B; 

REPEAT 

WriteCard((lO^Rest) DIV B,l); 

Rest:=(10"Rest) MOD B; 

INC(NachKommasteilen) 

IJNTIL Nachkommastellen=10; 

WriteLn 

END DezimalbruchAusgabe. 
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2. MODÜLE Durchschnitt: 

FROM InOut IMPORT WriteLn, WriteString, WriteCard, ReadCard, Write; 
VAR Zahl, Summe, Anzahl, Rest : CARDINAL; 

BEGIN 

WriteString("Durchschnittswert-Berechnung"); WriteLn; 

WriteString("Geben Sie eine Folge von natürlichen Zahlen ein."); 
WriteLn; 

WriteString("Ende = 0"); WriteLn; 

Anzahl:=0; Summe:=0; 

REPEAT 

ReadCard(Zahl); 

INC(Summe,Zahl); (* Oder Summe:=Summe+Zahl *) 

IF Zahloo THEN INC(Anzahl) END 
DNTIL Zahl=0 ; 

WriteString("Anzahl der eingebenen Zahlen: "); 

WriteCard(Anzahl,1); WriteLn; 

IF Anzahl>0 
THEN 

WriteString("Der Durchsnittswert beträgt: "); 

WriteCard(Summe DIV Anzahl,l); 

Write(" ." ); 

Rest : =Summe MOD Anzahl; 

WriteCard( ( 10*Rest) DIV Anzahl,1); 

Rest : =(10*Rest) MOD Anzahl; 

WriteCard( ( 10"Rest) DIV Anzahl.l); 

WriteLn 
END (» IF *) 

END Durchschnitt. 


Kapitel 4.3 

1. MODDLE Kopieren; (" Version mit REPEAT-Anweisung *) 

FROM InOut IMPORT Read, Done, Openlnput, Closeinput, OpenOutput, 
CloseOutput, Write, WriteLn, WriteString; 

VAR Zeichen : CHAR; 

BEGIN 

WriteLn; 

WriteString("Kopieren von Text-Dateien"); WriteLn; 

WriteString( "-"); WriteLn; 

WriteLn; 

Openlnput("MOD"); WriteLn; 

IF NOT Done 

THEN WriteString("Datei existiert nicht!"; WriteLn; HALT 
END; (» IF *) 

OpenOutput("MOD" ); 

Read(Zeichen); 

IF Done 
THEN REPEAT 

Write(Zeichen); 

Read(Zeichen) 

DNTIL NOT Done 
END; (*> IF *) 

Closeinput; CloseOutput; 

WriteString("Kopie erstellt."); WriteLn; 

END Kopieren. 
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2. MODULE Count ; 

FROM InOut IMPORT Openlnput, Closeinput, Read» WriteLn, 
WriteCard, WriteString; 

VAR Zeichen : CHAR; 

GrossBuchstabenZahl, KleinBuchstabenZahl : CARDINAL; 

BEGIN 

WriteLn; 

WriteString("Anzahl der Buchstaben in einem Text"); WriteLn; 

WriteString( "-"); WriteLn; 

WriteLn; 

Openlnput("MOD"); WriteLn; 

IF NOT Done 

THEN WriteString("Datei existiert nicht!"; WriteLn; HALT 
END; (» IF *) 

GrossBuchstabenZahl:=0; KleinBuchstabenZahl:=0; 

Read(Zeichen); 

WHILE Done DO 

IF (Zeichen> = "A" ) AND (Zeichen< = "Z") 

THEN GrossBuchstabenZahl:=GrossBuchstabenZahl+l 
ELSIF (Zeichen>="a") AND (Zeichen<="z") 

THEN KleinBuchstabenZahl:=KleinBuchstabenZahl+l 
END; (* IF *) 

Read(Zeichen) 

END; (* WHILE *) 

Closeinput; 

WriteString("Analyse beendet.”); WriteLn; 

WriteString("Es wurden "); 

WriteCard(GrossBuchstabenZahl,1); 

WriteString(" Großbuchstaben und "); 

WriteCard(KleinBuchstabenZahl,1); 

WriteString(" Kleinbuchstaben gefunden."); 

WriteLn 
END Count. 

3. Es reicht die Änderung von 'Write(Zeichen)' in 'Write 
(CAP(Zeichen))'. 


Kapitel 4.4 

1. Es genügt die Änderung der WHILE-Anweisung: 

LOOP 

IF Eingabe=0 THEN EXIT END; 

Fakultaet:=Fakultaet"Eingabe; 

Eingabe:=Eingabe-l 
END; (« LOOP *) 


2. Genauso kann auch im Kopierprogramm die WHILE-Anwei¬ 
sung ersetzt werden: 

LOOP 

IF NOT Done THEN EXIT END; 

Write(Zeichen); 

Read(Zeichen) 

END; (* LOOP *) 
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Kapitel 4.5 

1. MODULE SummeBisX; 

FROM InOut IMPORT ReadCard, WriteCard, WriteLn, WriteString; 
VAR Summe, X, i : CARDINAL; 

BEGIN 

WriteString("Geben Sie eine natürliche Zahl ein: "); 
ReadCard(X); WriteLn; 

WriteString("Die Summe aller natürlichen Zahlen his "); 
WriteCard(X,1); 

WriteString(" beträgt: "); 

Summe:=0; FOR i:=l TO X DO INC(Summe,i) END; 

WriteCard(Summe,1); WriteLn 
END SummeBisX. 

2. Hier nur die Hauptschleife: 

FOR i:=MAX(CARDINAL) TO 0 BY -1 DO 

IF FLOAT(i ) >=Eingabe THEN Minimum:=i END 
END; (* FOR ") 

3. Die REPEAT-An Weisung wird folgendermaßen ersetzt: 

FOR Nachkommastellen:=1 TO 10 DO 
WriteCard((10*Rest) DIV B,l); 

Rest:=(10*Rest) MOD B 
END; (» FOR ») 


Kapitel 4.6 

1. Der Weg wird in der Lösung von Aufgabe 2, Kapitel 6 be¬ 
schrieben. 

2. MODDLE ZeichenZaehlen; 

FROM InOut IMPORT Openlnput, Read, Done, WriteString, 

WriteLn, WriteCard; 

VAR Grossbuchstaben, Kleinbuchstaben, Sonderzeichen : CARDINAL; 

Zeichen : CHAR; 

BEGIN 

WriteString("Textanalyse"); WriteLn; 

WriteString( "-"); WriteLn; 

Grossbuchstaben:=0; Kleinbuchstaben:=0; Sonderzeichen:=0; 
Openlnput(""); 

WHILE Done DO 
Read(Zeichen); 

CASE Zeichen OF 

"A".."Z" : INC(Grossbuchstaben); 

| "a".."z" : INC(Kleinbuchstaben); 

ELSE INC(Sonderzeichen) 

END (* CASE ») 

END; (« WHILE *) 

Closeinput; 

WriteString("Der Text besteht aus"); WriteLn; 

WriteCard(Grossbuchstaben,1); 

WriteString(" Großbuchstaben,"); WriteLn; 
WriteCard(Kleinbuchstaben,1); 




236 Lösungen der Aufgaben 


WriteString(" Kleinbuchstaben und "); WriteLn; 
WriteCard(Sonderzeichen,1); 

WriteString(" Sonderzeichen.”) 

END ZeichenZaehlen. 


Kapitel 5.3 

1. MODULE M; 

VAR X,Y : CARDINAL; 

Z : REAL; 

PROCEDÜRE P; 

VAR A,B,X,Y : INTEGER; 

Z : CARDINAL; 

PROCEDÜRE PI; 

VAR A,B : CHAR 
BEGIN 

(* Hier bekannte Bezeichner: 

A, B von PI 

X, Y, Z, PI von P 

P von M *) 

END PI; 

PROCEDÜRE P2; 

VAR P : CARDINAL; 

X : REAL; 

PROCEDÜRE P; 

(* Dieser Prozedurname ist nicht zuläßig, da P bereits 
durch die lokale CARDINAL-Variable belegt ist! ») 
VAR A,B : REAL; 

BEGIN 
END P; 

BEGIN (« P2 *) 

(* Hier bekannte Bezeichner 
P, X von P2 

A, B, Y, Z, PI, P2 von P 

die Prozedur P von M ist hier nicht sichtbar! *) 
END P2; 

BEGIN 

(* Hier bekannte Bezeichner: 

A, B, X, Y, Z, PI, P2 von P 
P von M *) 

END P; 

BEGIN 

(* Hier bekannte Bezeichner: 

X, Y, Z, PI, P2 von M 

END M. 


2 . 2 
12 
1 
2 
12 
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Kapitel 5.4 

1. PROCEDORE xyz(VAR A,B : CARDINAL; C : CARDINAL); ... 

xyz(n,m,3-9) falsch, da der Ausdruck 3-9 keinen CARDINAL-Wert liefert. 
xyz(n,n,m) korrekt 

xyz(n,1000 DIV m,m) falsch, da Ausdruck an zweiter Stelle. 
xyz(n,m,2*m-n+0RD("A")) korrekt, aber u.U. Laufzeitfehler, wenn 

der Ausdruck negativ wird. 

2. Ausgabeprozeduren: Wertparameter 
Eingabeprozeduren: Referenzparameter 


Kapitel 5.5 

Das Problem ist am einfachsten zu lösen, wenn man eine zusätzli¬ 
che Variable deklariert, die anzeigt, ob bereits eine Ziffer gelesen 
wurde. Hat diese boolesche Variable den Wert FALSE, so werden 
Leerzeichen ignoriert, ansonsten führen sie zu einem Fehler. Ist sie 
auch am Ende noch FALSE, so wurde eine Leerzeile eingegeben. 


PROCEDORE LiesCard(VAR Zahl, Fehlercode : CARDINAL); 

VAR Zeichen : CHAR; 

ZifferGelesen : BOOLEAN; 

BEGIN 

Zahl:=0; Fehlercode:=0; ZifferGelesen:=FALSE; 

REPEAT 

Read(Zeichen); 

CASE Zeichen OF 

" " : IF ZifferGelesen THEN Fehlercode:=1 END; 

| EOL : (* nichts *) 

| ’0’..’9’ : IF Zahle=(MAX(CARDINAL)-(0RD(Zeichen)-0RD(’0’))) DIV 10 
THEN Zahl:=10“Zahl+(ORD(Zeichen)-0RD(’0’) 

ELSE Fehlercode:=2 
END; 

ZifferGelesen:=TRÜE 
ELSE Fehlercode:=1 
END (» CASE *) 

UNTIL (Zeichen=EOL) OR (FehlerCode>0); 

IF NOT ZifferGelesen THEN FehlerCode:=3 END 
END LiesCard; 


2. Bei der Eingabe von INTEGER-Zahlen ist es günstig, in einer 
weiteren Variablen ein eventuell eingegebenes Vorzeichen zu 
speichern. Die boolesche Variable «VorzeichenGelesen» zeigt 
diesen Sachverhalt an. 


PROCEDORE Lieslnt( VAR Zahl : INTEGER; VAR Fehlercode : CARDINAL); 
VAR Zeichen : CHAR; 

ZifferGelesen, VorzeichenGelesen : BOOLEAN; 

Vorzeichen : INTEGER; 
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BEGIN 

Zahl:=0; Fehlercode:=0; ZifferGelesen:=FALSE; 

Vorzeichen:=tl; VorzeichenGelesen:=FALSE; 

REPEAT 

Read(Zeichen); 

CASE Zeichen OF 

" " : IF ZifferGelesen THEN FehlerCode:=l END; 
i « + ii . if VorzeichenGelesen OR ZifferGelesen 
THEN Fehlercode:=1 
ELSE VorzeichenGelesen:=TRUE 
END; 

| : IF VorzeichenGelesen OR ZifferGelesen 

THEN Fehlercode:=1 

ELSE Vorzeichen:=-l; VorzeichenGelesen:=TRUE 

END 

| EOL : (" nichts ») 

| : IF Zahl<=(MAX(INTEGER) DIV 10 

THEN Zahl:=10"Zahlt(0RD(Zeichen)-0RD(’0’) 

ELSE Fehlercode:=2 
END; 

ZifferGelesen:=TRUE 
ELSE Fehlercode:=1 
END (" CASE ") 

ÜNTIL (Zeichen=EOL) OR (Fehlercode>0 ); 

IF NOT ZifferGelesen THEN Fehlercode:=3 END 
END Lieslnt; 

"+" und können auch unter einem CASE-Label zusammengefaßt werden 

| : IF VorzeichenGelesen OR ZifferGelesen 

THEN Fehlercode:=1 
ELSE 

VorzeichenGelesen:=TRUE; 

IF Zeichen="-" THEN Vorzeichen:“-1 END 
END; 


Kapitel 5.6 

1. PROCEDURE CARD(Ziffer : CHAR) : CARDINAL; 
BEGIN 

RETURN 0RD(Ziffer)-0RD("0") 

END CARD; 


2. PROCEDURE IstGerade(Zahl : CARDINAL) : B00LEAN; 
BEGIN 

RETURN NOT ODD(Zahl) 

(» oder Zahl MOD 2=0") 

END IstGerade; 


3. Das einfachste Verfahren besteht darin, erst zu prüfen, ob es 
sich bei der zu testenden Zahl um 2 handelt (was ja eine 
Primzahl ist) oder ob sie gerade ist. Ansonsten wird die Zahl 
durch sämtliche ungeraden Zahlen geteilt. Ist sie durch eine 
solche ohne Rest teilbar, so handelt es sich um keine Primzahl. 
Die größte ungerade Zahl, mit der der Test durchgeführt wer- 
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den muß, ist dann erreicht, wenn das Produkt dieser Zahl mit 
sich selbst den Probanden überschreitet. Sind alle Tests nega¬ 
tiv verlaufen, so handelt es sich um eine Primzahl. 

PROCEDURE Primzahl(Zahl : CARDINAL) : BOOLEAN; 

VAR TestZahl : CARDINAL; 

BEGIN 

IF Zahl=2 THEN RETURN TRUE 

ELSIF NOT ODD(Zahl) THEN RETURN FALSE 

ELSE 

TestZahl:=3; 

WHILE TestZahl'*TestZahl<=Zahl DO 

IF Zahl MOD TestZahl = 0 THEN RETURN FALSE END; 
TestZahl:=TestZahl+2 (* oder INC(TestZahl,2) *) 

END; (» WHILE *) 

RETURN TRUE 
END (« IF *) 

END Primzahl; 

4. PROCEDURE FRAC(Zahl : REAL):REAL; 

BEGIN 

RETURN Zahl-INT(Zahl) 

END FRAC; 


Kapitel 6.3 

2. Zeichenketten dürfen, wenn sie nicht in Kommentaren stehen, 
komplett ausgegeben werden. So kann das Problem durch 
einen weiteren ELSIF-Zweig gelöst werden: 

... ELSIF (Zeichen='" / ) AND (Kommentartiefe=0) 

THEN REPEAT Write(Zeichen); Read(Zeichen) UNTIL Zei¬ 
chen^"' 

Der Fall, daß Zeichenketten in einfache Hochkommas eingeschlos¬ 
sen sind, kann mit derselben Methode behandelt werden. 

Übrigens birgt das Programm noch eine weitere Fehlerquelle, 
wenn die Eingabe kein korrektes Modula-2-Programm darstellt. 
Endet der zu analysierende Text nämlich mit ( oder *, so wird 
durch «read(Naechstes)» über das Ende der Datei hinaus gelesen, 
was unter Umständen zu einem Programmabbruch führt. 

Dieser Fehler kann am einfachsten dadurch behoben werden, daß 
auf das folgende Zeichen nur dann zugegriffen wird, wenn Done 
den Wert «TRUE» hat: 


IF (Zeichen='(') AND Done ... 
IF (Zeichen='(*) AND Done ... 
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Allerdings muß dann sicherheitshalber auch vor dem zweiten 
«ReadChar» eine entsprechende Abfrage stattfinden. 

Eine andere Möglichkeit besteht darin, bereits die Prozedur 
«ReadChar» im Modul «GepuffertesLesen» so zu gestalten, daß 
nicht über das Ende der Datei hinaus gelesen werden kann. Die 
Abfrage könnte hier beispielsweise so aussehen: 

IF (Puffer=0C) AND Done ... 


Kapitel 7.1.1 

Der IMPORT-Teil muß um folgende Liste erweitert werden: 
FORM Terminal IMPORT BusyRead; 

Dann muß eine CFIAR-Variable deklariert werden: 

VAR Eingabe : CHAR; 

Innerhalb der LOOP-Anweisung müssen folgende Anweisungen 
eingefügt werden: 

BusyRead(Eingabe); IF EingabeOOC THEN HALT END; 

Eine andere Möglichkeit besteht darin, die LOOP- durch eine 
REPEAT-Anweisung so zu ersetzen: 

REPEAT 

BusyRead(Eingabe) 

UNTIL EingabeOOC 


Kapitel 7.1.2 

1. Das Programm kann nahezu vollständig aus «StringExtrakt» 
gewonnen werden. Der Hauptunterschied liegt darin, daß jedes 
gelesene Zeichen ausgegeben werden muß, im Zustand «Zei¬ 
chenlesen» in Großbuchstaben, ansonsten unverändert. 
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MODULE KopierenMitUmwandlung; 

FROM InOut IMPORT Openlnput, Closeinput, Done, Read, Write, WriteString, 
WriteLn, OpenOutput, CloseOutput; 

TYPE AutomatenZustand = (ZeichenLesen, StringlLesen, String2Lesen); 

VAR Zustand : AutomatenZustand; 

Zeichen : CHAR; 

BEGIN 

WriteLn; 

WriteString("Umwandlung eines Modula-2-Programmtextes in Versalien"); 
WriteLn; 

WriteString("Stringkonstanten bleiben unberührt"); 

WriteLn; WriteLn; 

OpenInput("MOD"); 

IF NOT Done THEN WriteString("Kein File!"); WriteLn; HALT END; 
OpenOutput(""); 

Zustand:=ZeichenLesen; 

Read(Zeichen); 

WHILE Done DO 
CASE Zustand OF 

ZeichenLesen : Write(CAP(Zeichen)); 

IF Zeichen*’"’ 

THEN Zustand:“StringlLesen 
ELSIF Zeichen“"’" 

THEN Zustand:=Strlng2Lesen 
END 

| StringlLesen : Write(Zeichen); 

IF Zeichen-’"’ 

THEN Zustand:-ZeichenLesen 
END 

| String2Lesen : Write(Zeichen); 

IF Zeichen-. 

THEN Zustand:-ZeichenLesen 

END 

END; (* CASE «) 

Read(Zeichen) 

END; (» WHILE «) 

Closeinput; 

CloseOutput 

END KopierenMitUmwandlung. 


2. Ohne diese Abfrage würde ein leerer Text das Programm 
zusammenbrechen lassen: Division durch 0! 

3. Der Automat benötigt die Zustände «Vorzeichen» und «Zif¬ 
fernfolge». Da nicht bis zum Ende der Datei gelesen wird, 
benötigt man noch einen speziellen Zustand («Ende»), der das 
Ende eine Zahl anzeigt. Startzustand ist «Vorzeichen»: 
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Alter Zustand 

Zeichen 

Aktion 

neuer Zustand 

Vorzeichen 

/ . / /_/ 

~ / 

speichern 

Zahl mit 0 
initialisieren 

Ziffernfolge 


'0'..'9' 

Vorzeichen:=+l 
Zahl entsprechend 
Ziffer initialisieren 

Ziffernfolge 


sonst 

Fehler , 

Ende 

Ziffernfolge 


Zahl weiterführen 

Ziffernfolge 


Begrenzer 

- 

Ende 


sonst 

Fehler 

Ende 


Begrenzer könnten beispielsweise sein: ' ', EOL. 

Kapitel 7.2 

Die Compilerschalter sind nicht genormt, jeder Anbieter geht hier 
seine eigenen Wege. Aus diesem Grund müssen Sie zur Lösung Ihr 
Handbuch konsultieren. 


Kapitel 7.4.1 

F HIGH(F) 

Feld4 5 (6 Farben) 

Feld5 1 (2 Wahrheitswerte) 

Feldö 10 (11 Zahlen) 

Kapitel 7.4.2 

1. MODULE StringprozedurenTest; 

FORM InOut IMPORT ReadString, WriteString, WriteLn, WriteCard; 
VAR Stringl, String2, String3 : ARRAY[1..80] OF CHAR; 

(* hier die Prozeduren einfügen *) 

BEGIN 

WriteString("Bitte gehen sie zwei Wörter ein:"); WriteLn; 
ReadString!Stringl); WriteLn; 

ReadString(String2); WriteLn; 

WriteString!"Das erste Wort besteht aus "); 

WriteCard!StringLaenge!Stringl),1); 

WriteString!" Zeichen."); WriteLn; 

WriteString!"Das zweite Wort besteht aus "); 

WriteCard!StringLaenge!String2),1); 

WriteString!" Zeichen."); WriteLn; 
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WriteString("Zusammengesetzt ergibt sich:"); WriteLn; 
Concat(Stringl, String2, String3); 

WriteString(Strlng3); WriteLn; 

WriteString("Das zweite Wort ist im ersten "); 

IF Pos(String2, Stringl)>0 
THEN 

WriteString("an "); WriteCard(Pos(String2, Stringl),l); 
WriteString("-ter Stelle ") 

ELSE WriteString("nicht ") 

END; 

WriteString("enthalten.") WriteLn 
END StringprozedurenTest. 


2. Die Anzahl der benötigten Leerzeichen ist n-StringLaenge- 
(String). Da der String rechtsbündig ausgedruckt werden soll, 
müssen die Leerzeichen vor dem String ausgegeben werden. 

PROCEDÜRE Print(String : ARRAY OF CHAR; n : CARDINAL); 

VAR i : CARDINAL; 

BEGIN 

FOR i:=1 TO n-StringLaenge(String) DO Write(’ ’) END; 
WriteString(String) 

END Print; 

Möglich ist auch: FOR i:=StringLaenge(String)+l TO n DO ... 


3. DEFINITION MODULE Strings; 

PROCEDÜRE StringLaenge(Zeile : ARRAY OF CHAR) : CARDINAL; 

(» Liefert die Länge einer Zeichenkette *) 

PROCEDÜRE Concat(Sl,S2 : ARRAY OF CHAR; VAR S : ARRAY OF CHAR); 

(" Setzt den String S aus den beiden Teilstrings S1 und S2 
zusammen *) 

PROCEDÜRE Pos(Suchstring. String : ARRAY OF CHAR) : CARDINAL; 

(* Gibt das erste Auftreten des Suchstrings in einem String 

zurück. 0 bedeutet, daß der Suchstring nicht enthalten ist *) 

END Strings. 

IMPLEMENTATION MODULE Strings; 

Hier einfach die drei Prozeduren einkopieren 


END Strings. 
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Kapitel 7.4.3 

1. In diesem Fall ist es am einfachsten, die Zahl von hinten 
abzubauen. Der Algorithmus lautet: 

Wiederhole 

die nächste Ziffer (von hinten) ergibt sich aus Zahl MOD Basis 

Zahl ergibt sich aus DIV Basis 

bis die Zahl den Wert 0 erreicht hat. 

Da die fortgesetzte Teilung nur sehr wenige Durchläufe benö¬ 
tigt, verwenden wir denselben Algorithmus zur Bestimmung der 
benötigten Anzahl von Ziffern. 


PROCEDÜRE CardToString(VAR String : ARRAY OF CHAR; Zahl, Basis :CARDINAL); 
VAR Anzahlziffern, Ziffer, temp : CARDINAL; 

BEGIN 

Anzahlziffern:=0; temp:=Zahl; 

REPEAT temp:=temp DIV Basis; INC(AnzahlZiffern) UNTIL temp=0; 

IF AnzahlZiffern<HIGH(String) TUEN RETURN END; (* String zu kurz! *) 
IF Basis=2 THEN String[AnzahlZiffern]:=’B’ 

ELSIF Basis=8 THEN String[AnzahlZiffern]:=’0’ 

ELSIF Basis=10 THEN String[AnzahlZiffern]D’ 

ELSIF Basis=16 THEN String[AnzahlZiffern]:='H’ 

END; 

IF HIGH(String)>AnzahlZiffern THEN String[AnzahlZiffern+l]:=0C END; 
REPEAT 

DEC(Anzahlziffern); 

Ziffer:=Zahl MOD Basis; Zahl:=Zahl DIV Basis; 

IF Ziffer<10 

THEN String[AnzahlZiffern]:=CHR(Ziffer+ORD( ’0’)) 

ELSE String[Anzahlziffern]:=CHR(Ziffer+10+ORD(’A’)) 

END 

UNTIL Zahl=0 
END CardToString; 

2. Die Prozedur «LiesCard», die keine Fehleingaben zuläßt, besteht 
in der Hauptsache nur aus einer Schleife, die solange durchlau¬ 
fen wird, bis ein eingegebener String fehlerfrei umgewandelt 
werden kann: 

PROCEDÜRE LiesCard( VAR Zahl : CARDINAL); 

VAR Eingabe : ARRAY[1..80] OF CHAR; 

Fehler : CARDINAL; 

BEGIN 

REPEAT 

ReadString(Eingabe); 

StringToCard(Eingabe, Zahl, Fehler); 

IF Fehler>0 

THEN WriteStringC' ???") 

END; 

WriteLn 
UNTIL Fehler=0 
END LiesCard; 
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Kapitel 7.4.4 

Die Lösung finden Sie in der Prozedur «vorhanden» (lokal zu 

«ReserviertesWort») im Programm «QuelltextLister». 

Kapitel 7.4.5 

Gehen Sie folgendermaßen vor: 

a) Schreiben Sie die Prozedur «KursivAn», die den Drucker auf 
kursive Schrift umschaltet. 

b) Schreiben Sie das Gegenstück hierzu («KursivAus»). 

c) Bei der Zustandsänderung «ZeichenLesen» -> «Kommentar» 
fügen Sie «KursivAn» ein. 

d) Bei der Zustandsänderung «Kommentar» -> «ZeichenLesen» 
fügen Sie «KursivAus» ein. 


Kapitel 7.5.3 

Obwohl der boolesche Ausdruck sehr kompliziert aussieht, kann 
der Funktionswert direkt angegeben werden: 

PROCEDURE FrueherAls(Datuml, Datum2 : Datum) : BOOLEAN; 

BEGIN 

RETDRN (Datuml.Jahr<Datum2.Jahr) OR 

((Datuml.Jahr=Datum2.Jahr) AND (Datuml-Monat<Datum2.Monat)) OR 
((Datuml.Jahr=Datum2.Jahr) AND (Datuml.Monat=Datum2.Monat) 

AND (Datuml.Tag<Datum2.Tag)) 

END FrueherAls; 

Ihre Lösung könnte eventuell auch so aussehen: 

IF Datuml.Jahr<Datum2.Jahr THEN RETURN TRUE 

ELSIF (Datuml.Jahr=Datum2.Jahr) AND (Datuml.Monat<Datum2.Monat) 

THEN RETURN TRUE 
ELSIF ... 

Auf raffinierte Weise löst folgender Ausdruck das Problem: 

RETURN (Datuml.Jahr<Datum2.Jahr) OR 

((Datuml.Jahr=Datum2.Jahr) AND 
(Datuml.Monat"31+Datuml.Tag<Datum2.Monat H 31+Datum2.Tag)) 

Die nochmalige Komprimierung auf 

RETURN Datuml.Jahr*366+Datuml.Monat*31+Datuml .Tag< 

Datum2. Jahr “366+Datum2 .Monat *31+Datum2 .Tag 

scheitert an einem CARDINAL-Überlauf. 
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Kapitel 7.5.4 

1. Größter Bruch: MAX(NatuerlicheZahl)/l 

Kleinster positiver Bruch größer 0: l/MAX(NatuerlicheZahl) 

2. Bei der Funktion «BruchKleiner» müssen wiederum die Vorzei¬ 
chen getrennt betrachtet werden. Ergebnis ist der Vergleich 

a/b < c/d 


PROCEDURE BruchKleiner(X, Y : Bruch) : B00LEAN; 

BEGIN 

IF (X.Vorzeichen=-l) AND (Y.Vorzeichen=+l) 

THEN RETURN TRUE 

ELSIF (X.Vorzeichen=+l) AND (Y.Vorzeichen=-l) 

THEN RETURN FALSE 

ELSIF (X.Vorzeichen=-l) AND (Y.Vorzeichen=-l) 

THEN RETURN X.Zaehler*Y.Nenner>Y.ZaehleCX.Nenner 
ELSE RETURN X.Zaehler*Y.Nenner<Y.Zaehler"X.Nenner 
END 

END BruchKleiner; 


Kapitel 7.5.5 

1. Der gewünschte Datentyp hat folgende Struktur: 

TYPE Adresse = RECORD 

Name, Vorname : ARRAY[1..20] OF CHAR; 
Strasse : ARRAY[1..40] OF CHAR; 

PLZ : [1000..9000] ; 

Ort : ARRAY[1..30] OF CHAR; 

Telefon : ARRAY[1..12] OF CHAR 
END; 


Für die Ein- und Ausgabe bieten sich folgende Prozeduren an: 

PROCEDURE LiesAdresse(VAR Eingabe : Adresse); 

BEGIN 

WITH Eingabe DO 

WriteString("Name: "); ReadString(Name); WriteLn; 
WriteString("Vorname: "); ReadString(Vorname); WriteLn; 
WriteString("Straße: "); ReadString(Strasse); WriteLn; 
WriteString("Postleitzahl: "); ReadCard(PLZ); WriteLn; 

(" kritisch !!! Besser in eine lokale Variable lesen und den 
zulässigen Bereich selbst Uberprlifen *) 
WriteString("Ort: "); ReadString(0rt); WriteLn; 

WriteString("Telefon: "); ReadString(Telefon); WriteLn 
END (* WITH «) 

END LiesAdresse; 

PROCEDURE SchreibAdresse(Ausgabe : Adresse); 

BEGIN 

WITH Ausgabe DO 

wie LiesAdresse, anstelle von Read... immer Write..., 
bei WriteCard Formatierung nicht vergessen! 

END SchreibAdresse; 
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PROCEDURE SchreibNamen(Ausgabe : Adresse); 

(* Gibt Name, Vorname . Telefon aus *) 

VAR i : CARDINAL; 

BEGIN 

WITH Ausgabe DO 

WriteString(Name); WriteString(", "); 

WriteString(Vorname); 

FOR i:=StringLaenge(Name)+StringLaenge(Vorname)+3 TO 60 DO 
Write( ’ . ’ ) 

END; (« FOR ») 

WriteString(Telefon); WriteLn 
END (» WITH *) 

END SchreibNamen; 


2. Das Programm ist prinzipiell genauso aufgebaut wie «Zahlen- 
Felder». Die Steuerung des Programms erfolgt hier über eine 
Menüauswahl, die als Funktionsprozedur ausgeführt wird und 
ein Resultat eines selbstdefinierten Aufzählungstyps «Menue- 
Punkt» liefert: 

TYPE MenuePunkt = (Eingeben, AdressenAusgeben, TelefonListe, 

Suchen, Beenden); 

PROCEDURE MenueAuswahl() : MenuePunkt; 

VAR Antwort : CHAR; 

BEGIN 

WriteString("E)ingeben, A)dressen, Tjelefonliste, S)uchen, B)eenden ? "); 

REPEAT 

BusyRead(Antwort); Antwort:=CAP(Antwort) 

UNTIL (Antwort=’E’) OR (Antwort=’A’) OR (Antwort=’T’) OR 
(Antwort“’S’) OR (Antwort“’B’); 

Write(Antwort); 

CASE Antwort OF 


’E’ 

: RETURN Eingeben 

1 ’A’ 

: RETURN AdressenAusgeben 

| ’T* 

: RETURN TelefonListe 

| ’S’ 

: RETURN Suchen 

| ’B’ 

: RETURN Beenden 

END (* 

CASE *) 


END MenueAuswahl; 


Dadurch, daß «Beenden» als eigener Menüpunkt aufgenommen 
wurde, kann das Programm in einer Endlosschleife laufen: 


CONST MaxAdressen = 100; 

VAR AdressenListe : ARRAYfl..MaxAdressen] OF Adresse; 
i, FeldGroesse : [1..MaxAdressen]; 


LOOP 

CASE MenueAuswahl ( ) OF 

Eingeben : IF FeldGroesse<MaxAdressen 

THEN 

INC(FeldGroesse); 

LiesAdresse(AdressenListefFeldGroesse]); 
Sortiere(AdressenListe,1.FeldGroesse) 
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ELSE WriteString("Liste ist voll!"); WriteLn 

END 

| AdressenAusgeben : FOR i:=1 TO FeldGroesse DO 

SchreibAdresse(AdressenListe[i]); 

WriteLn 

END 

| TelefonListe : FOR i:=l TO FeldGroesse DO 

SchreibNamen(AdressenListe[i]) 

END 


END; 

3. Die Vorgehens weise entspricht exakt der beim Typ «Datum». 


Kapitel 8.8 

1. Ein Vorfahre ist entweder ein Vater oder eine Mutter, oder ein 
Vorfahre eines Vorfahren. 


2. PROCEDDRE vertauschet VAR X,Y : CARDINAL); 

VAR t : CARDINAL; 

BEGIN 

t: =X; X:=Y; Y:=t 
END vertausche; 

4. Hier der Kern des Programms: 

FROM Random IMPORT RandomCard; 

VAR Testfeld : ARRAY[0.999] OF CARDINAL; 

i : CARDINAL; 

BEGIN 

FOR i:=0 TO 999 DO TestFeld[i]:=RandomCard(1000) END; 
Sortiere(TestFeld,0,999); 

FOR i:=0 TO 999 DO WriteCard(TestFeld[i],10); WriteLn END 
END ... 


5. Bei der Testreihe zeigt sich, daß die Sortierzeit annähernd linear 
ist, d. h. ein doppelt so großes Feld wird auch in der doppelten 
Zeit sortiert. 

6. Anstelle des CARDINAL-Vergleichs muß nur der entsprechende 
Größenvergleich für Zeichenketten gesetzt werden. Das Feld 
selbst hat folgende Struktur: 

TYPE STRING = ARRAY[0..80] OF CHAR ; 

VAR TestFeld : ARRAY[0..999] OF STRING; 

Ein zufällige Belegung kann auf folgende Weise realisiert 
werden: 
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VAR i,j, Laenge : CARDINAL; 

FOR i:=0 TO 999 DO 

Laenge:=RandomCard(80); 

FOR J:=0 TO Laenge DO 

TestFeld[i][j]:=CHR(65+RandomCard(26)) (* ergibt Zeichen von "A" bis "Z" *) 
END; (« FOR j *) 

TestFeld[i][Laenge+1]:=0C 
END (» FOR i ») 

Da die Zuweisung auch für beliebige Felder gilt, kann die Proze¬ 
dur «vertausche» wie oben gestaltet werden: 

PROCEDURE vertausche(VAR X,Y : STRING); 

VAR t : STRING; 

BEGIN 

t:=X; X: =Y; Y:=t 
END vertausche; 


7. Zu diesem Zweck machen wir am einfachsten aus den Prozedu¬ 
ren «CardinalAusdruck», «Term», «Faktor» und «Cardinal- 
Zahl» Funktionsprozeduren vom Typ CARDINAL. Zusätzlich 
muß in jeder dieser Prozeduren eine lokale Variable für Zwi¬ 
schenergebnisse bereitgestellt werden. 

PROCEDURE CardinalAusdruck() : CARDINAL; 

VAR Wert : CARDINAL; 

PROCEDURE LeerzeichenUeberlesen ... 

PROCEDURE Term() : CARDINAL; 

VAR Wert : CARDINAL; 

PROCEDURE FaktorO : CARDINAL; 

VAR Wert : CARDINAL; 

PROCEDURE CardinalZahl() : CARDINAL; 

VAR Wert : CARDINAL; 

BEGIN 
Wert:=0; 

WHILE (Eingabe[Position]>="0") AND (Eingabe[Position]<="9") DO 
Wert:=10»Wert+0RD(Eingabe[Position])-0RD( "0"); 

INC(Position) 

END; 

RETURN Wert; 

END CardinalZahl; 

BEGIN (* Faktor *) 

LeerzeichenUeberlesen; 

IF (Eingabe[Position]>="0") AND (Eingabe[Position]<="9") 

TUEN RETURN CardinalZahl 
ELSIF Eingabe[Position] = "(" 

THEN 

INC(Position); 

Wert: =CardinalAusdruck; 

IF Fehler THEN RETURN 0 END; 

LeerzeichenUeberlesen; 
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IF Eingabe[Position]<>")" 

THEN 

Fehlermeldung(’")” fehlt!’.Position); 

Fehler:=TRUE 
ELSE RETURN Wert 
END 
ELSE 

Fehlermeldung("Illegale Zeichen".Position); 

Fehler:=TRUE 
END (» IF *) 

END Faktor; 

BEGIN (« Term *) 

Wert:=Faktor; LeerzeichenUeberlesen; 

WHILE NOT Fehler AND 

((Eingabe[Position]='""') OR (Eingabe[Position] = "/" ) ) DO 
INC(Position); 

IF Eingabe[Position-l]="*" 

THEN Wert:=Wert"Faktor 
ELSE Wert:=Wert/Faktor 
END; 

LeerzeichenUeberlesen 
END; 

RETURN Wert; 

END Term; 

BEGIN (* CardinalAusdruck *) 

Wert:=Term; LeerzeichenUeberlesen; 

WHILE NOT Fehler AND 

((Eingabe[Position]="+") OR (Eingabe[Position]="-")) DO 
INC(Position); 

IF Eingabe[Position-l]-"+" 

THEN Wert:=Wert+Term 
ELSE Wert:=Wert-Term 
END; 

LeerzeichenUeberlesen 

END; 

RETURN Wert 
END CardinalAusdruck; 


Kapitel 9.2 

1. Die Prozedur ist identisch zu «Pos» aus Kapitel 7.4.2, mit dem 
Unterschied, daß es statt SuchString[i] jetzt SuchString A [i] etc. 
heißen muß. Anstelle von «StringLaenge» muß selbstverständ¬ 
lich «DynStringLength» verwendet werden. 

2. PROCEDURE DynStringEqual(X,Y : DynString): B00LEAN; 

VAR i,1 : CARDINAL; 

BEGIN 

1:=DynStringLength(X); 

IF DynStringLength(Y)<>1 
THEN RETURN FALSE 

ELSE i : =0 ; WHILE (Kl) AND (X''[i]=Y~[i] ) DO INC(i) END; 
RETURN i=l 
END DynStringEqual; 
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3. Wichtig ist der Import von «OpenOutput» aus «InOut». Vor der 
Ausgabe kann dann die Umleitung erfolgen. 

Kapitel 9.3.1.1 

1. Höchstwahrscheinlich würde das Programm abstürzen, da unter 
Umständen in geschützte Speicherbereiche geschrieben wird. 

2. Die ganze Änderung besteht darin, daß der Typ CARDINAL 
durch einen STRING-Typ ersetzt wird, und die entsprechenden 
Ein- und Ausgabeanweisungen angepaßt werden. 


Kapitel 9.3.1.2 


TYPE Kopf = RECORD 

Inhalt : REAL; 

Rest : Liste 
END; 

VAR Puffer : PufferTyp; 

Messwert : REAL; 

Puff er.Anfang:«NIL; 

LOOP 

IF MesswertDa() THEN 
LlesMessert(Messwert); 
Einfuegen(Puffer.Messwert) 
ELSIF NOT ListeLeer(Puffer) THEN 
Entfernen(Puffer.Messwert); 
BearbeiteMesswert(Messwert) 

END 

END (* Loop *) 


Kapitel 9.3.2 


VAR Stapel : LIFO; 

InitLIFO(Stapel); 

LOOP 

IF MesswertDa() THEN 
LiesMesswert(Messwert); 
PushToLIFO(Stapel.Messwert) 
ELSIF NOT EmptyLIFO(Stapel) THEN 
PopFromLIFO(Stapel.Messwert); 
BearbeiteMesswert(Messwert) 

END 

END (* LOOP *) 


Kapitel 9.4 

IF (CAP(Sl~[i])=CAP(S2~[i])) AND (Sl Ä [i]<>0C) 
THEN INC(i) 

ELSE RETURN CAP(Sl Ä [i])<CAP(S2~[i]) 

END (« IF *•) 
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